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ABSTRACT 

An  interactive  ccmputer  simuidtion  of  marine  gas  tiri:'ine 
installatioiis  including  intake  and  exnaust  dieting  for  the 
engine   and      module      cooling      nas    been      developed.  A      one- 

dimensional  analysis  vas  used  in  determining  the  pressure 
losses  of  the  ducting.  The  pressure  losses  along  with  the 
ambient  conditions  and  desired  power  setting  define  a  unique 
operating  point  for  the  system.  Tne  computer  model  predicts 
operating  parameters  for  this  point  by  an  iterative  matching 
technig  ue. 
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I.    INTRODUCTION 

The  installation  cf  gas  turbine  engines  in  a  snip  raises 
several  prctlem  areas  in  the  design  of  the  intake  and 
exhaust  ducting.  The  problems  relate  mainly  witn  the  large 
volume  of  ccmbustion  air  required  and  the  properties  of  the 
exhaust  gases  rejected  to  the  atmospaere  at  hign  tempera- 
tures and  velocity.  For  comparison,  a  boiler's  combustion 
air  requirement  is  nearly  stoichiometric  but  the  gas  turoine 
operates  at  about  400  percent  of  stoichiometric.  The  boil- 
er's exhaust  is  about  400  degrees  F  dzter  leaving  the  last 
rows  of  the  economizer,  but  gas  turbine  exhaust  temperatures 
are    frequently    as   high  as   9,50    degrees    F. 

In  addition  to  the  air  that  passes  tnrougn  the  gas 
turbine  engine  there  is  also  a  requirement  to  ventilate  the 
engine   enclosure.  An   adequate      and    uniformly      distributed 

cooling  airflow  is  required  around  tne  engine  to  maintain 
engine-mounted  components  at  their  proper  operating  tempera- 
tures and  to  minimize  the  heat  rejected  to  the  engine  room 
thereby  reducing  the  heat  exposure  of  operating  personnel, 
.lany  current  designs  branch  the  engine  cooling  airflow  off 
the  main  intakes  and/or  join  neated  enclosure  cooling  air 
into  the  engine  exhaust  ducting.  Figure  1.1  shows  a  typical 
layout   of    inlet      and    exhaust   ducting.  Since      the    enclosure 

cooling  airflow  is  on  the  order  of  20  percent  of  the 
engine's  full  power  airflow  rate,  it  is  an  important  part  of 
the    ducting   design. 

The  fundamental  requirement  of  an  intake  design  is  to 
provide  air  to  the  engine  coir.pressor  witn  tne  minimuji  total 
pressure  loss  and  witn  a  minimum  of  total  pressure  distor- 
tion. The  loss  of  total  pressure  in  the  intakes  leads  to  a 
loss      of      engine    power      and      an      increase    in      specific      fuel 
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Figure    1.1        Typical  Shipboard    Inlet    and    Exhaust    Ducting. 

consumption.  Schwieger  reports  "Typical  exchange  rates  are 
that  a  one  percent  loss  in  ir^take  pressure  is  equivalent  to 
a  2.2  percent  loss  in  power  and  a  1,2  percent  increase  in 
specific  fuel  consumption"  [Ref.  1].  Aadit  ionally ,  total 
pressure  distortion  at  the  compressor  face  can  lead  to  a 
risk    of    comfressor    blade   failure. 

Exhaust  ducts  must  also  operate  with  a  minimum  pressure 
loss.  "The  exchange  rate  is  1.1  percent  loss  in  power  and 
1.1  percent  increase  in  specific  fuel  consucption  for  the 
one  percent  increase  in  total  pressure  at  the  power  turbine 
exit"   [ Ref.    1]. 

Conflicting  with  the  design'  objective  to  reduce  losses 
in    the    ducting       system   are    several    possible      requirements    to 
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install  components  in  the  ducting  system  which  contribute  to 
the  losses  tut  not  directly  to  engine  performance.  Filters 
are      installed      to       increase   engine      life.  Silencers      are 

installed   to  reduce    noise.  Machinery    arrangements    dictate 

the  use  of  certain  elbows,  contractions,  and  transitions. 
The  iniared  signature  of  the  ship's  exhaust  plume  can  be 
reduced  by  the  installation  of  an  eductor  system  at  the 
exhaust  exit.  The  eductor  also  improves  the  environment  of 
mast  mounted  equipmect  and  may  contribute  to  flight  safety 
when  operating  helicopters.  Some  systems  use  an  eductor 
arrangement  installed  at  the  exhaust  plane  of  the  engine  to 
pump  cooling  air  through  the  engine  enclosure,  A  waste  neat 
recovery  boiler  may  te  installed  in  the  exhaust  to  improve 
overall  efficiency.  To  reduce  pressure  losses  every  attempt 
should  be  made  to  reduce  the  velocity  in  the  duct.  Lower 
velocities  requires  larger  ducts.  Part  of  the  design 
compromise  must  balance  the  large  volume  of  the  ship  occu- 
pied with  inlet  and  exnaust  ducts  and  the  volume  for  other 
uses  such  as  weapons  ar.d  ha  bitibility ,  In  summary  there  are 
many  different  components  that  can  oe  utilized  within  the 
ducting  system  and  have  various  effects  on  the  system 
performance.  The  effects  also  vary  with  the  operating  point 
of    the    system. 

It  is  not  a  straight  forward  proclem  to  predict  how 
components  in  the  ducting  system  will  perform.  It  is  an 
interacting  or  matching  type  of  problem.  Furthermore,  it  is 
a  dynamic  prablem  as  parameters  affecting  performance  can 
vary  over  a  wide  range.  For  example,  one  power  setting  of 
the  gas  turbine  requires  a  different  mass  flow  rate  of  air 
than  another.  The  variable  mass  flow  rate  tnrough  the 
ducting  system  creats  a  variable  inlet  and  exhaust  duct 
pressure  loss.  The  variation  in  exhaust  temperature  affects 
the      losses   in       the    exhaust      duct.  Jxtimately    all      losses 

affect   the    performance  of   the   gas    turbine    engine. 
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One  approach  to  the  analysis  of  dacting  system  perform- 
ance is  to  separate  the  problea  into  two  areas  of  concern. 
The  first  area  snoald  deal  with  a  one-dimensionai  analysis 
of  the  ducting  system  to  determine  now  pressure  losses 
affect  engine  performance  and  how  the  various  components  of 
the  system  contribute  to  the  sum  total  of  these  losses.  Ihe 
second  area  should  deal  with  the  distortion  of  total  pres- 
sure across  any  section  of  the  duct.  This  area  becomes  a 
three-dimensional  problem  where  interest  is  directed  to 
performance  not  just  at  any  section  of  the  duct  but  to 
within  that  section  to  the  variation  of  velocity  across  tne 
cutting    plane.  Tne  one-dimensional      and   three-dimensional 

areas   of  the  analysis  are   of   course   related. 

The  relationship  between  the  ontr- dimensional  and  the 
three-iimensional  aspect  of  the  problem  is  understood  and  is 
dealt  with  in  an  empirical  manner.  Ine  method  is  to  apply  a 
correction  factor  to  the  loss  developed  in  the  one- 
dimensional  analysis  of  a  particular  system  component,  based 
on  the  distortion  of  the  flow  assumed  to  be  presented  to  tne 
component.  If  the  assumptions  about  flow  distortion  are 
made  and  are  accurate  much  valuable  information  results  from 
the    one-dimensional    analysis. 

The  three-dimensional  analysis  of  a  duct  system  is 
possible  only  for  a  very  simple  system  and  requires  very 
large  computer  assets.  It  is  current  practice  to  deal  with 
three-dimensional  analysis  of  complex  systems  through  model 
studies.  One-dimensicnal  analysis  on  the  other  hand  is  well 
suited   for   analysis    en  a   computer. 

It  is  the  intent  of  this  study  to  develop  the  method- 
ology for  a  one-dimensional  analysis  of  a  gas  turbine 
engine's  inlet  and  exhaust  ducting  as  mignt  be  installed  on 
a   ship.  Then    to      implement    the      method    in      an    interactive 

computer   program   which  allows   rapid      input    of    the    duct    geom- 
etry,        desired    operating      point    and      ambient   conditions      to 
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obtain    an      accurate    estimate    of    performance.  The    designer 

can  then  decide  to  make  changes  to  components  to  achieve 
design  objectives  and  maice  tnose  chanjes  to  the  duct  geom- 
etry througn  an  editing  routine  and  rerun  the  problem.  Cnce 
the  designer  is  satisfied  with  the  one  dimensional  analysis 
a   firm   Dasis  exists    to   provide    a    design    for    model    studies. 
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II.    THEORY    AND    ANALYSIS 

A.  GEHEEAL 

A  one  dimensional  analysis  of  the  flow  in  duct  sections 
utilizes  the  Bernoulli  Eqaatior.  modified  to  account  for 
losses.  The    term      one-dimensional    is      an   adjective      often 

applied  to  flow  situations.  The  whole  flow  is  considered  to 
te  one  large  streamtube  with  average  velocity  V  at  each 
cross  section.  Thus  the  one  dimension  is  the  location  down 
the    duct.  Losses    refers      to   the      pressure    loss      caused   by 

frictional  stresses  in  the  airflow  boundary  layer  and  by 
turbulence.  A  thorough  understanding  of  these  terms  and 
concepts  is  required  to  convey  the  meaning  of  the  results  of 
the    duct   system    analysis. 

B.  THE    BERNOOLLI    EQUATION 

The  Bernoulli  Equation  is  discussed  in  any  basic  text  on 
fluid  mechanics.  It  was  developed  to  describe  tne  flow  work 
of  an  ideal  incompr essiole  fluid  m  steady  flow  through  a 
streamtube.  In  words  it  states  that  the  mechanical  energy 
per       unit      mass      along      a      streamline      is      conserved.  The 

Bernoulli   Equation    is: 

v2/2gj.     *    p/o    -••     (g/gc)  2    =    constant.  (eqn    2.1) 

It  relates  velocity,  pressure,  and  potential  height.  The 
constant  may  have  a  different  value  for  each  streamline,  but 
for  the  purposes  of  duct  flow  certain  simplifying  assimp- 
tions  are  valid  which  make  the  constant  valid  for  any 
streamline.  The  assumptions  are  that  the  static  pressure  is 
constant   at   any    point  in   a      cross  section   of    tne    duct.         The 
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next  assumption  is  that  because  the  system  uses  gases,  the 
effect  of  variation  in  potential  height  at  a  duct  section  is 
so  small  relative  to  the  other  tens  that  its  effect  is 
neglected.  This  assumption  is  extenied  further  to  include 
the  change  in  elevation  effect  at  any  section  relative  to 
any    other   section. 

Alternate  forms  of  the  Bernoulli  Situation  are  octained 
fcy  multiplying  tnrough  ty  either  gc/3  or  yo  .  Of  interest  to 
gas  flow  and  duct  design  is  the  form  oDtained  by  multiplying 
through  ty  p  .  Applying  the  above  assumptions  tne  resulting 
ecjuation   is: 

yo  v2/2g£    +p   =    constant  (eqn   2.2) 

In  this  form  the  constant  .has  units  of  foot-pound  force/ 
feet3  and  expresses  the  energy  per  unit  volume  flow  rate. 
It  reduces  to  pound  force/feet2  or  pressure.  Each  term  in 
the  expression  is  given  a  name.  The  velocity  term  is  the 
velocity  presure,  p  is  the  static  pressure,  and  the  constant 
is  the  total  pressure.  In  words,  the  total  pressure  at  a 
point  is  the  sura  of  the  velocity  pressure  and  the  static 
pressure. 

C.       MODIFIED   BERHODLII    EQUATION 

Although  equation  2.2  was  derived  for  flow  along  a 
streamtute  of  an  ideal  frictionless  flow  it  can  be  extended 
to  analyze  flow  througn  ducts  in  real  systems  by  applying 
the  First  Law  of  Thermodynamics.  A  good  development  of  the 
application  of  the  First  Law  of  Thermodynamics  to  pipe  flow 
is  found  in  [Hef-  2].  It  results  in  tne  modified  Bernoulli 
Equation  (2.3).  Equation  (2.3)  incorporates  all  tne  assump- 
tions so  far  and  includes  the  termZlp^.  The  flow  resistance 
in  a  system  with  a  real  fluid  between  stations  1  and  2  is 
represented    by    the    total    pressure    loss,Ap^. 
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/>v2/2gc     *    p^    =     /'v2/2gt    *    9^    ^  ^?t  (eg n    2.3) 

The  velocity  used  in  the  modirxed  Bernouiii  Ejuation 
will  be  taken  as  the  mean  velocity  and  then  this  equation 
will  be  assumed  valid  for  any  streamline  in  the  duct. 
Analytically  this  is  not  correct  because  there  is  a  varia- 
tion of  velocity  at  a  duct  section  irom  tne  walls  to  the 
center  of  the  duct.  The  error  introduced  by  this  assumption 
is  offset  by  two  circumstances.  First,  with  turbulent  flow 
the  velocity  profile  is  nearly  uniform  wnich  makes  the  mean 
velocity  a  good  approximation  of  the  velocity  at  any  point 
in  the  cross  section.  Second,  experimentally  determined 
loss  coefficients  are  utilized  in  computations  and  this 
coefficient  is  applied  using  the  mean  velocity.  Then  if  the 
velocity  profile  in  the  system  matches  the  profile  of  the 
experiment,  the  loss  will  be  correctly  computed  using  the 
mean    velocity. 

The  computer  program  uses  the  mean  velocity  and  computes 
it  basea  on  mass  flow  rates.  The  mean  velocity  is  computed 
from  the  mass  flow  througn  a  sectional  area  and  the  density 
of  the  fluid  at  the  section  using  eguation  2.4.  Density  is 
computed  by  the  perfect  gas  law  equation  (2.5)  and  is  a 
function  of  the  absolute  temperature  of  tne  gas  and  the 
static    pressure    of    the   gas. 

V  =     —, —  (egn    2.4) 


^  =    p/RT  (egn    2.5) 

where     p  =  static  pressure 

R  =  gas  constant 

T  =  absolute  temperature 
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D.       PfiESSORE   LOSSES 

There  are  two  types  of  fluid  losses  in  the  ducting 
system,  frictional  and  dynamic  losses.  Frictional  losses 
occur  along  the  walls  of  the  entire  duct  length  and  are  due 
to  fluid  viscosity.  Dynamic  losses  result  from  disturbing 
tne  flow  such  as  a  change  of  direction,  contraction,  or 
expansion. 

The    Darcy-Weisbach   equation     (2.6)  calculates    the    fric- 

tion   loss    for   straight   ducts. 

Darcy-Wiesbach   equation  A  p+    =     f  (l/D)5—  (ean    2.6) 

where         Ap^      =    frictions   loss 

in    terms   of    total    pressure 
i    =    friction   factor 
L   =    duct   length 
D  =    duct   diameter   or 

equivalent    hydraulic   diameter 
^5—  =    velocity   pressure 
The    friction      factor,/,      used      in  computing    iuct      losses   is 
taken   from      a   correlation      ty    Swamee      and   Jain      presented   in 
[Ref.    2]. 

r       0  zs ,  ^   -,, 

t  ~    T '/ -.  ^. — T~5 fl  (Qqn   2./) 


The  absolute  roughness  factor,  e,  is  taken  to  be  0.00015 
feet  for  all  air  duct  components.  For  rectangular  straight 
duct  sections  the  equivalent  hydraulic  diameter,  Dg  ,  is 
calculated  by  eguation  (2.8)  presented  in  [Ref.  3]. 
Equations  2-6,  2.7,  and  2.8  are  utilized  m  the  program  for 
computing  friction  losses  in  the  straignt  sections  of  the 
duct . 


^e    =    l-^"^      (li.b)0-^^o-  (eqn    2.8) 

Friction  losses  occur  in  aii  fittings  not  jjst  ifx 
straight  duct.  There  are  two  techniques  to  arrive  at  the 
friction  losses  in  these  other  fittings.  The  iecision  atout 
which  tcchnii^ue  to  use  depends  on  the  wnether  tne  fitting  is 
snort  or  long.  In  short  fittings  friction  is  accounted  for 
ty  measuring  the  connecting  sections  of  straight  duct  to  the 
center  of  the  fitting.  No  attempt  is  made  to  include  fric- 
tion in  the  calculation  of  fluid  resistance  for  a  short 
fitting.  Elbows  are  short  fittings.  For  long  fittings  such 
as  diffusers  and  contractions,  friction  is  included  in  tne 
computation  of  the  flow  resistance  coefficient.  Therefore, 
a  connecting  straignt  duct  length  should  be  measured  to  the 
center  of  an  elbow  cr  to  the  start  or  eni  of  a  diffuser  or 
contraction. 

Dynamic  losses  are  sometimes  called  local  or  minor 
losses.  In  piping  systems,  losses  due  to  the  local  distur- 
bances of  the  flow  are  often  called  minor  losses.  In  very 
long  piping  systems  these  losses  are  jsually  insignificant 
in  ccmparison  with  the  friction  in  tne  length  considered. 
In  the  duct  used  for  a  gas  turbine  installation  tnese 
so-called  minor  losses  actually  become  major  losses  because 
of      the    short      lengths      usually    encountered.  Experimental 

results  are  almost  always  used  to  account  for  pressure 
losses      through    the      duct      fittings.  Such    information      is 

usually    given   in   the    form   of   equation    2.9. 

Apt    =    K^v2/2gt  (eqn    2.9) 

The  coeificient  K  is  given  for  the  fitting  in  numerous  hand- 
books. Figure  2.1  shows  some  typical  representations  of  the 
information  available. 
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Figure    2.1         Typical   K   Values   for   Fittings. 

One  of  the  purposes  of  the  program  is  to  provide  K  coef- 
ficients for  various  fittings  selected  to  represent  duct 
components.  K    values      can      vary    with      tne      geometry    of      a 

fitting.  For  example,  a  long  smooth  radius  rectangular 
elbow  has  a  lower  K  value  than  a  snort  smooth  radius  rectan- 
gular eltow.  The  program  taKes  this  into  account  and  is  the 
reason  for  the  various  questions  about  a  fitting's  geometry 
in  the  area  of  the  program  where  the  user  is  inputing  the 
duct    system. 

Two  fittings  in  the  program's  menu  do  not  requite  geom- 
etry inputs  to  obtain  resistance  information.  The  two 
fittings   are   filters    and   the   gas    turbine    module.       The    reason 


20 


for  the  lack  of  >^uestions  is  that  tne  losses  are  hased  on 
manufacturer's  data.  Filter  manufacturers  provide  pressure 
loss  data  based  on  face  velocity  and  tae  nodaie  is  tased  on 
the  mass  flow  rate  of  cooling  air.  A  power  curve  fits  the 
data  and  the  program  uses  the  curve  to  aodel  pressure  losses 
for    these    fittings. 

Table  I  sumarizes  the  fittings  available  from  the 
program's      menu.  The    fluid      resistance      coefficients      are 

computed  by  the  program  upon  input  of  the  required  geometry 
factors    for      the    fitting.  Input   of       the    duct      fittings    is 

accomplished  interactively.  The   source      of    the      model    for 

eacn  fitting  is  noted  in  the  program  listing  in  tne  title 
block  of  the  fitting  subroutine.  The  program  subroutines 
FIT01  tnrougn  FIT29  correspond  to  the  fittings  listed  in 
table  I  .  A  sketch  of  each  fitting,  is  provided  in  the 
user's      manual      for      the   program.  The      user's      manual      is 

Appendix   C. 

E.       GAS    TDRBINE/SYSTEH    INTERFACE 

General  Electric  Company,  the  manufacturer  of  the  LM2500 
marine  gas  turbine,  publishes  performance  data  for  its 
engine  under  variable  operating  conditions.  [Ref.  4].  It 
is  important  to  understand  how  the  shipboard  engine  is  oper- 
ated under  variable  operating  conditions  such  as  duct  losses 
and  ambient  temperature  ,  pressure  and  humility  so  that  the 
proper  corrections  may  be  applied  to  tne  engine  performance 
parameters    for    these    variables. 
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TABLE  I 
Fittings  Available  From  Program  Menu 


Fitting  Number 
01 

02 

03 
04 

05 

06 
07 

08 

09 

10 

11 

12 

13 

14 
15 

16 
17 
18 
19 

20 
21 
22 

23 
24 


Descri  ption 

Intake  shaft,  rectangular  :;ross 
section,  sidt  oririccs,  with  or 
without    louvers 

Straight    duct,    roand   or 
rectan  gular 

Smooth    radius   round    elbow 

Pound  90  degree  segmented  elbow 
with   3,4,    or    5    pieces 

Mitered    round   elbow    witn    or 
without   concentric    vanes 

Mitered   rectangular    elbow 

Smooth    radius   rectangular 
elbow 

Smooth    radius    rectangular 
elbow    with    splitters 

Mitered   rectangiiiar    elbow 
with   vanes 

Eectangular    elbow    with 
converging    or   diverging    flow 

90    degree   rectangular    elbows 
in   a   2-snaped   configuration 

90    degree   rectangular    elbows 
in    different    planes 

Eranch    section    of   a    diverging 
wye 

(*ain   section    of   a    diverging    wye 

Eranch    section   of    a    convergent 
wye 

Main   section    of    a    convergent    wye 

Conical   rounu    diffuser 

Plane    in-line   diffuser 

PyrdJiidial    in-line    diffuser 

Transitional   diffuser 

Eound    contraction 

Rectangular    contraction 

Screen    obstruction    m    duct 

Louver    entrance 

continued    next    page 


I 
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25  Filter    element 

26  Muiti-baifle    type    silencer 

27  Gas   turbine    module    enclosure 

28  Waste    heat   recovery    boiler 

29  Abrupt    exit 

30  Fitting   not    listed 

Froa  the  shipboard  operator's  point  of  view  the  engine 
should  drive  the  ship  at  the  desired  speed  whetner  it  is  a 
hot  day  cr  a  cold  day,  or  if  the  inlet  duct  losses  are  four 
inches    of    water    or    eight.  The    engine    is    operating    differ- 

ently under  such  conditions  to  produce  the  same  horsepower 
and  speed.  The  proper  correction  factor  set  to  be  applied 
to  the  tabulated  data  is  the  set  for  constant  speed  and 
horsepower.  The  corrections  are  applied  in  the  program  with 
each  iteration  of  the  duct  system  performance  calculations 
using  the  current  values  of  the  inlet  and  exhaust  duct 
losses   and      ambient    conditions.  The   corrections      are   very 

small  (less  than  two  percent)  and  tne  convergence  of  the 
correct  engine  operating  point  and  duct  losses  created  by 
the  mass  flow  of  air  required  at  the  operating  point  is 
quite    stable. 

F.       FAN/SYSTEM    INTERFfiCE 

The  operating  point  of  the  fan  installed  in  a  duct 
system  is  the  point  where  the  fan  characteristic  curve 
intersects  the  system  characteristic  curve.  The  fan  curve 
shows  pressure  rise  vs.  flow  rate.  Witn  increasing  flow  the 
pressure  rise  across  the  fan  is  reduced.  The  system  curve 
is  the  opposite,  increasing  flow  in  tne  systea  increases  the 
resistance  to  flow.  Figure  2.2  represents  t.iis  situation 
graphically. 
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In  the  itaration  process  the  system  curve  is  estimated 
as  a  <3uadratic  fitted  to  the  origin  as  a  minimaa  point  ani 
the  other  point  at  the  assumed  flow  and  tae  resulting  pres- 
sure loss.  Similiarily  the  fan  curve  is  also  represented  as 
a  quadratic  with  a  maximum  at  maximum  pressure  attainable 
and  the  corresponding  flow  and  another  point  at  zero  pres- 
sure and  maximum  flow.  The  representation  of  the  fan 
performance  for  the  default  condition,  the  Spruance  class 
destroyer  module  cooling  fan,  is  excellent.  'With  an  equa- 
tion for  both  curves  the  point  of  intersection  can  be 
obtained.  The  resulting  flow  is  used  in  the  next  iteration 
until  the  resistance  of  the  system  and  tne  pressure  rise 
across  the  fan  is  the  same  for  the  assumed  flow. 

G.   JDNCTIONS  OR  WYES 

An  excellent   discussion  of   tae  mixing   of  two   streams 

moving  at  different  velocities  was   written  by  Idei'chik  and 

is   presented   here   to   develop    the   background   for   the 

eductor/system  interface  discussion. 

The  junction  of  two  parallel  streams  moving  at 
different  velocities  is  characterized  by  turbulent 
mixing  of  the  streams,  accompanied  bv  pressure  losses. 
In  the  course  of  this  mixing  an  excnange  of  the  momentum 
takes  place  between  the  particles  moving  at  different 
velocities,  finally  resulting  in  the  equilization  of  the 
velocity  distributions  in  the  common  stream.  The  jet 
with  higher  velocity  loses  a  part  of  its  kinetic  energy 
by  transmitting  it  to  tne  slower  jet. 

The  loss  in  total  pressure  oefore  and  after  mixing 
is  always  large  and  positive  for  the  higher- velocity 
jet,  ana  increases  with  an  increase  in  tne  amount  of 
energy  transmitted  to  the  lower  vexocity  jet. 
Consequently,  the  resistance  coefficient,  which  is 
defined  as  tne  ratio  of  the  difference  of  total  pressure 
to  the  mean  dynamic  pressure  in  tne  given  section,  will 
likewise  always  be  positive.  As  to  the  lower- velocity 
jet,  the  energy  stored  in  it  increases  as  a  result  of 
mixing.  The  loss  in  total  pressure  and  the  resistance 
coefficient  can,  therefore,  also  nave  negative  values 
for  the  lower- velocity  jet  [ Bef .  5]. 

Tne  program  incorporates  this  concept  at  tne  junction  of  the 

module  cooling  air  and  the  engine   exhaust  (if  tne  system  is 

so  configured)  .    The  program  assumes  the  lower  velocity  jet 
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Figure    2.2        Fan/Systea   Interface, 
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to  be  the  coolinj  flew  and  the  nijner  velocity  jet  to  be  tne 
exhaust  flow. 

H.   EDOCIOB/SYSTEM  IHIEBFACE 

The  eductor  discussed  in  this  section  is  used  in  the 
engine's  exhaust  to  move  cooling  air  through  the  cooling 
ducting  and  engine  enclosure.  There  is  a  mixing  of  the 
cooling  flow  and  exhaust  before  it  is  discharged  to  the 
atmosphere.  This  section  does  not  discuss  tne  eductor 
installed  at  the  exhaust  duct  exit.  The  only  component  of 
interest  there  is  the  nozzle  as  a  dynamic  loss.  The  effect 
of  the  external  mixing  tube  is  small  and  can  be  neglected. 

The  module  cooling  eductor  is  used  on  the  Oliver  Hazard 
Perry  class  frigate.  It  is  shown  schematically  in  figure 
2.3.  The  eductor  system  is  illustrated  in  figure  2.4,  This 
figure  shows  the  geometry  and  pressure  distribution  during 
the  mixing  of  primary  flow,  engine  exhaust,  and  the  secon- 
dary flow,  module  cooling  flow.  A  matcn  point  concept  can 
be  developed  for  the  eductor  mucn  like  the  fan  and  system 
interface  concept  shown  in  figure  2.2.  One  curve  is  called 
the  gain  required  and  the  other  the  gain  available.  These 
curves  are  shown  in  figure  2.5.  Given  the  geometry  of  the 
mixing  area  the  gain  available  can  oe  computed  by  varying 
the  cooling  flow  while  the  primary  flow,  the  engine  exhaust, 
remains  nearly  constant  for  the  desired  power  setting.  The 
gain  available  is  a  maximum  at  zero  cooling  flow. 

The  gain  required  is  computed  by  dividing  the  system  at 
the  eductor  and  is  analogous  to  the  system  characteristic 
model  in  figure  2.2.  On  the  downstream  side  cooling  and 
engine  exhaust  flows  move  througx:  the  exhaust  duct.  The 
cooling  flew  moves  through  tne  upstream  duct.  Total  pres- 
sure losses  can  be  computed  for  both  and  tne  sum  is  tne  gain 
required.     Since  these   com^- utations  are   taking  place   at 
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nearly  constant  primary  flow,  engine  exhaust,  the  gain 
required  at  an  operating  point  is  a  function  of  the  cooling 
flow.  The  gain  required  at  zero  cooling  liow  is  the  exhaust 
duct  pressure  loss  under  the  flow  coniition  represented  by 
the  engine  exhaust  alone.  Increasing  the  ::ooling  flow 
increases  the  losses  j.n  the  exhaust  duct  and  also  brings  to 
bear  losses  in  the  cooling  duct.  Therefore  the  required 
gain  is  a  minimum  at  zero  cooling  flow  and  increases  with 
increasing  cooling  flew. 

There  must  be  an  intersection  of  the  gain  required  curve 
and  the  gain  available  curve  if  the  system  is  to  operate. 
This  condition  occurs  if  the  gain  available  at  zero  cooling 
flow  is  greater  than  the  gain  required  at  zero  cooling  flow. 
The  intersection  must  also  be  far  enough  to  the  right  to 
provide  the  minimum  cooling  requirement  for  the  load  on  the 
engine.  The  matching  technique  is  to  begin  with  seme 
minimum  cooling  flow  as  specified  by  the  engine  manufacturer 
and  march  to  the  right  adding  a  small  increment  to  the 
cooj.ing  flow  until  gain  required  equals  gain  available. 

I.   SYSTEM  ANALYSIS 

Sections  of  the  intake  and  exhaust  ductwork  will  be 
analyzed  from  node  tc  node  resulting  in  the  pressure  loss 
for  the  section.  The  sections  will  be  called  branches.  A 
node  is  the  starting  or  ending  point  of  a  branch.  The 
fittings  of  a  branch  will  be  entered  into  the  program  in  the 
sequence  encountered  by  the  flow  along  a  branch.  A  node  is 
an  entry,  diverging  wye,  fan,  the  gas  turbine  engine  (not  to 
te  confused  with  the  engine  enclosure) ,  convergent  wye,  or 
an  exit.  Figure  2.6  snows  the  six  resulting  schematic 
representations  of  a  gas  turbine  installation  and  the  varia- 
tions of  cooling  flow  available.  The  numbered  dots  are  the 
nodes.   Node  1  is  always  the  main  inlet  entrance.   Node  3  is 
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Figure  2.4   Module  Eductor  Performance 
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Figure    2.5      Eductor/System    Interface 
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always  the  engine.  Node  U  is  always  tne  cooling  fan.  Node 
6  is  always  the  main  exhaust  exit.  Node  2  may  ce  either  an 
independent  entry  for  the  coolinc,  flow  or  the  branch  loca- 
tion wnere  the  cooling  flow  diverges  Jrom  tne  comtined 
inlet.  Node  5  may  te  either  an  independent  exit  for  tne 
cooling  flow  or  the  junction  of  cooling  flow  with  the  engine 
exhaust.  The    hashed      area   is      the    engine      and    the      larger 

rectangle  represents  the  engine  iiiodule  wnich  surrounds  the 
engine  and  is  a  fitting  in  the  cooling  flow  branch.  The 
tranches  are  designated  by  the  node  number  at  tne  begining 
and  end  of  the  branch.  The  reader  should  refer  to  the 
user's  manual  for  a  complete  description  of  entry  of  the 
fittings   into   the   program. 

The  system  in  figure  1.  1  would  be  a  class  three  system. 
It  nas  the  cooling  flew  branching  off  the  main  inlet  (diver- 
gent wye)  and  joining  the  main  exhaust  near  tne  exhaust  exit 
plane   of      the   engine     (convergent    wye).  It    also    has      a   fan 

installed  which  differentiates  it  from  the  class  five 
system. 
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Ihe  tdsic  procedure  for  system  analysis  is  to  assume 
enough  flow  and  loss  information  to  proceed  iiith  the  anal- 
ysis and  check  the  assumptions  witn  continuity  of  pressure 
at  the  nodes  with  each  iteration.  If  tne  pressures  do  not 
match,  new  assumptions  are  made  based  on  the  current 
performance  and  the  iteration  is  continued  until  convergence 
is  achieved. 

With  six  different  types  of  systems  to  match,  six 
different  schemes  mast  be  implemente i  in  the  computer  code 
to  handle  overall  system  matching.  iach  scheme  must  be 
tailored  to  nandle  the  expected  components  that  make  it 
different  from  any  other  system.  For  example,  system  six 
has  Lo  cooling  fan  and  system  one  does.  System  one  needs  to 
consider  the  fan  and  system  interface  but  system  six  does 
not.  Appendix  A  is  the  complete  program  listing.  Appendix 
B  contains  a  flow  chart  of  the  most  complex  system  in  the 
program,  system  three,  and  incorporates  all  possible 
component/system  interfaces. 

J.   TOTAL  PEESSDRE  GRADIENT 

The  total  pressure  cnan ges  represent  the  energy  require- 
ments of  the  system.  Total  pressure  losses  in  the  intake 
and  exhaust  ducts  are  inputs  to  tne  engine  performance 
subroutine  in  the  program  and  are  used  to  determine  the 
operating  parameters  of  the  engine.  Fan  and  system  matching 
is  accomplished  with  tne  total  pressure  reguireaent. 
Therefore  total  pressure  gradients  in  tne  ductworK  are  most 
important  to  analysis.  Measurament  on  tne  other  hani 
usually  produces  the  static  pressure  gradient.  The  static 
pressure  at  a  point  is  less  than  the  total  pressure  at  the 
point.  Figure  2.7  shows  a  typical  representation  of  the 
pressure  changes  during  flow  in  a  simple  duct.  Losses  m  a 
duct   are    due   to   the   irreversible    tran sf or mations   of 
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mechanicai  energy  into  neat  and  the  losses  are  ased  to  plot 
the  total  pressure  grade  line.  Note  tnat  some  fittings  such 
as  diffjsers  and  contractions  cause  a  change  ir.  the  static 
pressure  juite  different:  fron:  the  change  in  total  pressure. 
This  is  a  result  of  a  change  in  tne  velocity  pressure 
tnrougn  a  variable  area  fitting.  The  saiaple  program  output 
presented  in  the  user's  nanual,  ajj^endix  Z,  can  be  used  to 
produce    similar    plots    of    the    pressure    jrade   line. 
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III.    PRQGBAM    PEOCEDIJRES 

A.       GENEEAL 

Ihe  purpose  of  the  program  prepared  for  this  study  is  to 
translate  the  geometry  of  a  gas  turbine  installation 
including  inlet,  exhaust,  and  cooling  ducting  into  a  one- 
dimensional  problem  to  calculate  tne  system's  frictional  ana 
dynamic  resistance  to  air  flow  and  solve  tne  problem  for 
various  operating  conditions.  Tne  solution  will  include 
engine  performance  parameters  such  as  specific  fuel  consaiLp- 
tion,  turbine  inlet  temperature,  and  mass  flow  rates. 
Additionally  a  summary  of  the  duct  system  performance  is 
given  by  pressure  losses  fo;:  each  component  and  a  summary  of 
branch  losses.  Cooling  air  flow  is  predicted  by  matching 
the    system    and    tne    installed    fan   or    module    eductor. 

Interactive  code  is  utilized  for  all  program  inputs. 
Any  number  of  fittings  and  combinations  of  fittings  may  be 
selected  to  represent  tne  user's  current  design.  The  system 
in  figure  1.1  can  be  represented  by  fittings  chosen  from  the 
menu.  About  30  selections  from  the  menu  wouli  be  required 
to   model      the   system.  The   type      and   number      of    selections 

depends  on  the  system's  configuration  and  complexity.  Each 
fitting  may  have  from  one  to  seven  questions  posed  interac- 
tively to  establish  the  required  geometry  inputs.  With  the 
geometry  known  the  program  computes  areas  and  coefficients 
necessary  to  perform  the  analysis.  This  data  is  stored  in  a 
file  called  duct  data  and  may  be  saved  for  future  program 
runs    where    geometry      input    is   not   required.  The   operating 

point  Id  defined  upon  input  of  ambient  temperature  and  pres- 
sure, humidity,  horsepower,  and  power  turbine  speed.  When 
combined   with   the   duct   data    file    the    problem    may    be   solved. 
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B.        liTEBACTITE    CODE 

Interactive  code  allows  the  user  to  sit  at  a  computer 
terminal,  access  a  desired  program,  specify  inputs  ty  typing 
at  the  terminal  keyboard,  and  execute  the  program.  Ail 
inputs  are  requested  ry  statements  appearing  on  the  terminal 
screen.  Resulting  output  is  written  to  tne  user's  files 
which  may  be  viewed  at  the  terminal  or  sent  to  the  printer. 
Tne  interactive  mode  of  operation  is  especially  valuable 
because  it  allows  the  user,  by  modifying  selected  input 
values,  to  guickly  evaluate  the  erfects  of  changes  to  an 
existing   or   contemplated   design.  Modification    of    a   system 

is  accomplished  interactively  within  tne  editor  portion  of 
the    program.  The    editor       offers    the      anility    to      change  a 

fitting.  For  example,  a  mitered  rouni  elbow  could  be  modi- 
fied to  add  cascaded  turning  vanes  or  a  different  elbow 
substituted  entirely.  Also  offered  is  the  ajuility  to  add  or 
delete    a    fitting.  The   addition    option    does      not    allow    the 

user  to  add  a  new  first  fitting  to  a  branch,  however  one  may 
be    added   anywhere   else. 

The  lost  important  consideration  in  writing  an  interac- 
tive computer  program  is  what  appears  on  the  screen  and  now 
it  appears.  Requests  for  inputs  are  in  Englisn  rather  than 
engineering  jargon.  Units  are  all  in  the  English  system. 
All    lengths      are   in      feet,       etc.  A^i    logical      cnoices    are 

accomplished  by  entry  of  one  letter,  the  first  letter  of  the 
choice.  For  example,  "Y"  is  the  reply  for  yes.  All  logical 
choice  replies  ar^  indice.tei  v^itni:.  pirei-thcsi^  at  tn^  cm 
of  the  c^uestion.  Should  the  user  not  use  one  ol  the  choices 
indicated,  the  question  will  be  repeated  until  a  prober 
response    is   given.  Default    values    are    avaiiacle      for    many 

circumstances  to  minimize  the  m^^ut  effoiTt.  A  default  is 
not  available  Dy  simply  depressing  the  return  key.  The  user 
must    elect    iefault    values   by   a    logical   cnoice.         For    example 
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the       Hamilton      Standard      filter         system  installed      on       tne 

Spruance   class    destroyer      is   avdixdble    as  a      letdalt    tor    the 

XXiLejL     ^xtt  ±hj  •  i  li  c      dSciT     5txtCi-5     Ci.i.3     ^y  auoWerxriy     a^lil  '.ua.~ 

txvelv    tc      a    question   asking    if      tua    is^z  v.oalI    liKe      to    jsc 
tie    d  61  a  Jit    filter    systeii. 


C.       CTHEE    PE03RAM    FEAIOEES 

Another   consideration      in    interactive      computer    i:rojrdm3 
is    the      i-ractice   of    "user       croofinj"    tne    mpits.  In    orher 

words,      an    interactive   cornputer    pro^rain    should  not    terminate- 
execution    (i. e. , "era sn")    if    an    improper    input    value    is    inad- 


vertently   defined      by   the   user. 


On    numerical      and    lo' 


input  two  features  are  incorporated  to  protect  input  cc  the 
program.  Iirst,  read  statements  ar=i  protected  with  error 
and    end      of    file    detection.  A      problem    with    input      nere    is 

hanllei        by   asking      the    user      to    re-enter      the    value.  On 

numerical  input  if  it  happens  again  on  tne  same  questior.  the 
program    stops   execution.  Secondly,      if    an   incorrect    number 

is  properly  defined  to  the  program  in  tne  geometry  input 
phase,  the  user  is  offered  one  last  chance  to  re-enter 
correct  fitting  data  if  the  user  realizes  his  mistake  before 
he  is  asked  if  he  wants  to  load  tne  data  for  the  fitting. 
Ine  user  is  assisted  here  by  a  check  for  area  continuity 
from  one  fitting  to  the  next.  A  warning  is  provided  if 
continuity      is    not       maintained.  Electing      not    to      load      a 

fitting  brings  the  user  racK  to  tne  ^enu  with  the  program 
ready  to  accept  a  choice  of  fittings  for  usc  instead  of  the 
erroneously    entered    fitting. 

The  program  is  nodixarized  oy  tae  extensive  use  of 
sarroutmes.  Modularization  facilitates  program  improve- 
ments ry  allowing  tne  upgrade  and  replacement  of  individual 
subroutines.  This  is  a  difficult  procedure  to  do  if  co.uiion 
tlocks      are      used.  Tnerefore        common      blocks       have      ceen 
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eliaxnated    irom    tne    ^rojram  .         Iht    jser    Jiay    .iecide    to    change 
tr.e    fittings   avaixa^le    in    tu-^    aer.U/ 


IDT     -2Xd^pi5. 


;g£  nal 


codd    docuaer.ta  ti  on    Si.ows      the    areas    tnat    r.ast      Le    cnangei    to 
dCC  Jiu^:!  ish    this    tasK, 

Af^-t^noix  C  J.S  d  user's  :nanjdl  mi  wor.jletes  the  e:cter:.di 
piocraii  io.rujien  t  ar  10  n  .  The  u^anuax  ex-lains  no  ^  to  e^ec-it. 
t..c  ^rcjiaii.  as  installtu  on  tne  fJavax  ?ost-jrada  a  t  e  Schco-'s 
13'\  303  J  .Tiain  frame  ccL^uter  ana  a  Si.,d^xei:  VA'C  ^oir.put^r.  A 
sample    case      is    descrined      and    san^^xe      output    ^-rovidci.  A 

t-ominal    session      is    also       recorded    to      sl.cw    ty^.  xcai      scz^er. 
-ij-sr  xdV-^. 
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IV.  RESOLTS  AND  RECOMMENDATIONS 

A.   GENERAL 

It  is  new  v.ossitie  to  ar.alvzt  syste:,  pt  rf  or  Hiance  cf  an 
orliLdr)       marine    ^as      turbirt    insta ilatioa.  Prior    lo      t:.e 

dtve iop:.i€nt  of  ti.is  pro ^r an";  saistctioriS  jf  t.:e  systci  w-^rs 
analvzel  and  their  interaction  was  ne-jxectei.  Tn^s  ax  i  not 
provide  serious  errors  in  tne  estiaation  or  en-jme  i-^.izo::r\- 
anct:  tut  It  did  not  provide  coiripj-=;t&  xnioraation  on  syste.i 
pericrnance.  In  particular,  the  ^.^rtaiction  on  cooii-.j  f^ow 
was    not      accurate.  This   was      oarcic  Uj-ari  ly    acute      wn«;-n    t.i^ 

systtm    'at:..i_:^t: -.    a    icocuie    eiuctor. 

The  prnce=^'=;  r>f  janu^lly  assicning  a  resist  ince  coeffi- 
cient to  a  fitting  has  been  eliminated.  Now  it  is  possible 
for  the  computer  program  to  analyze  the  geometry  of  most 
fittings  rapidly  and  apply  the  correct  resistance  coeffi- 
cients for  tne  one-dimensional  analysis  without  the  user 
looking    up    any    correlations. 

The  program  flexibility  is  demonstrated  by  the  ability 
to  -quickly  change  input  parameters  and  analyze  a  system  at 
any  operating  point.  Previous  methods  analyzed  components 
at  full  power  and  then  used  a  proportionality  model  wnere 
losses  were  proportional  to  the  square  of  tne  engine  air 
mass  flow  rate.  This  method  consistently  under-estima tes 
duct  losses  at  low  power  because  it  does  not  take  into 
account  the  variation  of  coolinj  flow  provided  with  an 
installed   fan   or   module   eductor.  At   low    power    the   cooling 

flow  can  be  a  significant  contributor  to  duct  losses  and  the 
previous   method    can    net   predict   tnis   contribution. 
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B.       IIMIIATIONS 

It  should  be  emi^hasized  that  any  one- dimensional 
analysis  does  not  handle  flow  distortion  well.  Suspected 
protleas  in  this  area  are  still  test  dealt  with  by  tne  use 
of  model  studies.  The  limitation  of  a  Ouc-diJiensionax  nodel 
is  that  a  fitting's  pressure  loss  may  be  known  for  unifcri 
flow  distribution,  tut  xs  is  difiicult  to  predict  the  loss 
with  distorted  flow.  It  is  known  however  that  tne  distorted 
flow  situation  will  have  a  larger  pressure  loss,  but  how 
much  is  not  easily  determined.  A  one-diiiiensional  analysis 
may    point      to    problems    with      flow   distortion.  The    program 

recognizes  the  potential  for  flow  distortion  on  certain 
fittings  such  as  diffusers  and  points  out  this  potential. 
Ii  a  fitting's  pressure  loss  can  vary  significantly  with 
distortion  of  flow  and  the  one-d^. Jiensional  analysis  has 
computed  a  large  pressure  loss,  the  user  should  flag  the 
fitting  for  futher  study  by  model  testing  as  the  pressure 
loss    has    probably    been    underestimated. 

Not  all  possible  duct  designs  can  have  their  fittings 
modeled  by  the  program.  Some  fittings  will  be  available 
from  the  program  menu  and  others  will  oe  similar  to  fittings 
listed,  tut  not  exactly.  Then  there  are  some  which  may  not 
be  listed  at  all.  If  the  fitting  is  close,  it  may  be  used 
and  expected  to  give  reasonable  results.  If  t.ie  fitting  is 
not  listed  then  the  user  must  provide  tne  resistance  coeffi- 
cient ty  using  the  "fitting  not  listed"  cnoice.  Tx.e  data 
for  this  entry  may  come  from  a  published  correlation  or  from 
tests   performed      on    similia r   installations.  It    is      in   the 

area  of  correlations  where  most  benefit  can  te  gamed  by 
program    modification. 
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C.       EICOflflENDATIONS 

The  pro'jram  currently  runs  as  a  stand  alor.t  j-rogran;,  Lut 
some  increased  utility  aay  be  reaiizei  by  incorporating  soae 
or  the  subroutines  in  otner  pro^jrams  whicn  would  tr.en  in^ut 
a  snip's  hcrsepower  an  i  'R?  ^.  ret^uire  aents  for  an  operatmj 
profile    instead    of    point    by    ^.cint    us^r    input. 

The  General  Electric  LM2500  engine  is  currently  the 
engine    iK'itnin   the      prcgraa.  Tne    engine    perforaance       in    tne 

program  is  built  by  table  interpolation  of  the  publishel 
performance    data.  General    Electric    also    oifers      a    prograrn 

wnich  provides  performance  data  and  it  is  recoamendcd  that 
this  program  be  substituted  for  tne  engine  subrojtme 
currently  in  the  program.  This  will  eliminate  any  dcubts 
about  engine  performance  predictions  and  make  the  parameters 
more    offical.  Also    the   General    Electric    program    covers    the 

complete  performance  map  of  the  engine  wnereas  the  enjine 
subroutine  used  in  this  analysis  was  limited  to  22,500 
horsepower    laximum.  There    is      stil^   a      little    power      left 

beyond  this  value  and  the  program  can  not  currently  o^^erate 
there.  Another      modification      concerning      the      engine      is 

improving  the  module  temperature  out  model  used  m  the  FIID? 
subroutine.  The  model  used  produces  reasonable  results  but 
is    not    based   on    test    data   but    on    operator    experience. 

The  biggest  improvement  in  program  periormance  and 
utility  can  be  made  by  the  incorporation  of  improved  fitting 
flow    resistance    correlations   of    test    lata.  Moiels    ani    full 

scale  systems  should  be  instrumented  to  ^-rovide  duct  pres- 
sure loss  data  to  check  tne  program's  analysis.  Fhere  tae 
program  prediction  is  not  accurate  new  fitting  correlations 
should  De  developed.  Potential  fittings  ror  improveu  models 
are  louvers,  silencers,  diffusers  with  distorted  flow,  junc- 
tions and  wyes  (especially  where  eductor  action  is  desired), 
and      toiler      tube      bundles.            ^itn       sufiicient      data      tnese 
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fittings      could    te      modeled    better      and      sore   simply.  Ihe 

overall    objective    is    to   increase      bota    tne    utility    ani    accu- 
racy   of    the   program    analysis. 
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APPENDIX  A 
PROGRAM  LISTING 


Q^00 *»*» tm* ************************************************** **mm******C 

Q**********  *************  ***********************************************Q 

C  ANALYTIC    J002L    OF    A    GAS     T'JRBIJJE    INSTALLATION    ON    BOAHD    A    SHI?  C 

C  C 

C  PEOGFArt    HRITTEN     EY    STEPHEN    M.     EZZELL,     LCOR,     USN  C 

C  VEESICN     1.0       DATE    MARCH     30,     1934  C 

C  PURPOSE:       TO    ANALYZE    THE    DUCTING    AND    GAS    TURBINE    INSTALLATION  C 

C  AS    .1IGHT    BE    INSTALLED    ON    A    SHIP.       INPUT    DUCT    GSC.1ETRY,  C 

C  A;1BI£NT   CONDITIONS,    AND    POWER    SETTING    TO    GET    PERFOHdANCE  C 

C  PAKAMEIZRS,  C 


C 

C    NO  COMPUTATIONS  ARE  DONE  IN  THE  MAIN  CONTROL  PROGRAM. 

C 

C    SOBRCOTINES  CALLEE:  BUILD,  EDIT,  COMPUT,  AND  FRTCMS 

C 

C         A    NOTE    ABOUT    FRTCMS,    YOU    HILL    NOT    FIND    IT    IN    THE 

C 

C 

c 
c 
c 
c 

c 
c 

c 

c 

C  NPS    IBM    3033    MAIN    FRAME    COMPOTER    PROGRAM    REQOIREaENTS 

C 

c 

C  HERE    IS    WHERE    I    SET    OP    THE    FILE    DEFINITIONS    USING    THE    LIBRARY 

C  SUBROUTINE    "FRTCMS".       THERE    ARE    NO    OTHER    FILEDEF'S    REQUIRED. 

C 

C      READING  TERMINAL  INPUT 

CALL  FRTCMS  ('FILEDEF  ','05       • , ' TSR MIN A L ' ) 
C      WRITING  TO  THE  lERMINAL 

CALL  FRICMS  ('FILEDEF  '-'Oe       • , • TEH MIN A L ' ) 
C      STORAGE  FILE  FOR  THE  DUCT  GEOMETRY  DEPENDENT  VARIABLES 

CALL  FRTCMS  ('FILEDEF  ','08       •,'DISK     ','DUCT     ', 

♦  • DATA     ' ) 

C      STCPAGE  FILE  FOR  THE  PERFORMANCE  DATA  OUTPUT 

CALL  FRICMS  ('FILEDEF  '.'OU       ','DISK     ', 'OUTPUT   ', 

♦  'DATA  ') 
C 

CALL    FRTCMS    ('ClfiSCRN     ')  i. 

C  INTRODUCTION.  IS    THEEE    A    DUCT    DATA    PILE    ??? 

10  WRITE     (6,600) 
C 

C  EVERY    READ    IS    PROTECTED    AGAINST    A    NULL    ENTRY    AND    AN    ERROR    IN 

C  INPUT.       THIS     IS    ACCOMPLISHED    kITH     "END=  .(X,  ERR  =  XX"  .       YOUR    SYSTEM 

C  MAY    NOT    HAVE    THIS    CAPABILITY,     IN    WHICH    CASE    DELETE    IT    OR 

C  SUBSTITUTE    AND    EQUIVALENT   CODE. 
C 


READ     (5,601,ENC=12,EHR=12)     ANS 
CALL    rRICaS     ('CLRSCHN     ') 
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12 
20 

'30 
32 
UQ 

'50 

'60 

62 
70 

'ao 

'90 
92 
100 


EVZEY    QOESIICN    REPLY     IS    CHECKED    TO    :1AK£    SURZ    ONE    CF    THE    ALLOWED 
HESPCNSES    WAS     USED,    IF    NOT    THE    JSEH     IS    WAhMED    AND    ASKED    TO 
ANSWER    HITH    OMZ    Or    THE    CORRECT    SESPONSES. 

IF     ((ANS.  EC.  YES)  .OR.  (  ANS.EQ.NO)  )     GO    TO    20 

HioIND     5 

WRITE     (6,602) 

GO    TO     TO 
CCNTINOE 

IF     (ANS- EQ.YSS)     GO    TO    30 
IF     (ANS-ZQ.;JO)     GO    TO     50 


DO    YOU    3ANT    TO    CCMPaTE    OH 
WRIT 


DIT    THE    DATA    FILE    ????? 
ANS 


(6,6  03)^ 
READ      (5,q01,ZNE  =  32,SHR=32)     »..  ^ 
IF     (  (ANS- Eg.COMPOI)  .OR.  (ANS.ZQ.  EDIT)  )     GO    TO    UO 

REWIND     D 

WRITE     (6,602) 

GO    TO    30 
CONTINOE 

IF     (ANS.  ZQ.COMEUT)     GO    TO    30 
IF     (ANS.  £Q. EDIT)     GO    TO    110 

CALL    30ILD 

WRITE     (6,604) 

READ     (S.bO  1,END=62,ERH  =  o2)     ANS 

CALL    FRTCaS     ('CIESCRN     ') 


If     (  (ANS.  EC.  COHPUT)  .OR.  ( ANS.  EQ.  iJIT)  ) 
REIIIND 


:o   70 


WRITE     (6,602) 
GO    TO    6  0 


CONTINUE 

IF     (ANS.  EQ.COMEOT)     GO    TO    30 

IF     (ANS.EQ.QOIT)     GO    TO    999 

CALL    COtIP 

WRITE     (6,605)_ 

READ     (5,60  1,  £:nC=92,ERH=92)     ANS 

IF     (  (ANS.  EQ. EDIT)  .OR.  (ANS. EC. QUIT)  )     GO    TO    100 

RZ)«IND     5 

WRITE     (6,602) 

GO    TO    9  0 
CONTINOE 

IF     (ANS.  ZQ. EDIT)     GO    TO    110 
IF       ANS. EQ. QUIT      GO    TO    999 


110       CALL    ED 


999 
600 


60  1 

602 


GO    TO    60 

continue 
forma:   (' 


A    ONE-DIMENSIONAL    .^ODSL    foe    the    SYSTE.r    perforhancev 
OF    A     .1ARINE    GAS    TURBINE    IN  STALLA  TICN' // 

3Y    LCDH.     STEPHEN    ^.     EZZELL'/'' 


VERSION     1.0 


MARCH    30 


1964  ', 


OPTIONS:    BUILD    A    DATA    FILE    H  EPR  ZSEN 'tiNG    THE    DUCT    SYSTE.I'/ 
EDIT    OR    CHANGE    THZ    DUCT    DATA    FILE    '/ 
COMPUTE    SYSTEM     PERFORMANCE     '/ 
METHOD:       INTERACTIVE    INPUT    OF    DATA,     BRANCHING    TO    DESIRED'/ 
OPTION    BY    ANSWZ2ING    QUESTIONS'// 
***    WARNING,    rwo    NULL    ENTRIES    ON    NUMERICAL    INPUT    WILL    •*«'/ 
***    KILL    THE    PROGRAM.     ♦*•'/// 
FIRST    QUESTION:  '/ 
DO    YDO    HAVE    A    DATA    FILE    Of    DUCT    FITTINGS      (Y/N)?') 


FORMAT 
FORMAT 


;fi) 


YOO    MUST    ENTER    THE    LETTER    INDICATED    IN    THE    BRACKETS'/ 
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■•■ 

FOR    A    PROPER    ANSWER 

603 

FOEMAI     (/• 

DO    YOU    WANT    TO    EDIT 

604 

♦  (E/Cl  ?•) 

DO    YC'J    WANT    TO    CC.1PU 

o05 

FOPMAT       ' 

STCP 

END 

DO    YC'J    WANT    TO    EuIT 

kk'  FILE 


IHZ 


OP.     USE    IT    FC£    COIP'JTATION 


da: 


FILE 

A   Fi: 


I    QUIT 
OH   0  U I i 


(C/Q)  ?•) 

T     (F./r^hi 


(E/Q)"?') 
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C  2UIL£    5U3SOUTIME:    INP'JIS    GEOMETRY    OF    DUCT,    OUTPUTS    DUCT    DATA  C 

C         TC    3ZT    THIS     301 N G   THE    DUCT    SYSTEM     YOU    ARE    WORKING    WITH    NEEDS    TO  C 

C         BE    CLASSIFIED.        SYSTEM    SUEHOUTINE    DOES    THIS.        WITH    THE    CLASS    OF  C 

C         THE    SYSTEM     KNOWN,    IDENTIFICATION    NUMEEnS    ARE    ASSIGNED.       THE    MENU         C 

c       IS  CALLED  a?  a:;d   fittings  are  entered  for  the  syste!1  to   a  file  c 

C  NAMED    DUCT    DATA.       THE    DUCT    DATA    FILE    WILI,    3E    SERIALIZED    3Y    THE  C 

C  USER    WITH    A     SIX    DIGIT    NOMBSR    CF    THE    USER'S    CHOICE.  C 

C  C 

C  VARIABLES:        HK I    AND    WKR     ARE    TRANSPORT    ARRAYS     USEE    TC    FILL    THE  C 

C  SYSTEM    ARRAYS     WOPKI    AND     WCRKR.       W0RKI(NNN,1)      IS    IKE  C 

C  ID    NUMBER,     AND    WC RKI ( NNN , 2)     IS    THE    FITTING    TYPE.  C 

C  WOhKR    STORES    FITTING    DATA    30CH    A3    LENGTHS,    AREAS,     AND  C 

C  RATICS.  C 

C  C 

C«*«««**«*«**********«***«««*«*«**«4'*«*«««««««*««««**4i«*«***«*«**«««*«*C 

SUBROUTINE    SUIID 

HEAL    WKR.WCRKR 

INTEGER    SORL,KKI,>:0RKI,TERM,TYPE,BRANCH,FITID,GECM,D0MMY,M,  CLASS 

DIMENSION    GEOM  (6)  ,WKI  (2)  ,WKR(4)  ,  WORK  I  (2  00,  2)  ,  WOEKH  (200  ,  4) 
C 

C  INST    FINDS    OUT    IF    YOU    WANT    -0N3    OR    SHORT    INSTRUCTIONS 

C 

CALL    INST  (30RL, TEEM) 
C 
C  SYSTEM   CLASSIFIES    THE    SYSTEM    TO    ONE    OF    SIX    POSSIBLE    SYSTEMS 


C 


CALL    SYSTEMrSCRl, CLASS) 


TO     (1  ,2,3,4,5,6)  , CLASS 
C 

C  GECH    IS    THE    IDENTIFICATION    NUMBER    TO    BE    USED    WITH    THE    FITTING. 

C  IT    IS    BROKEN    UP    INTO     FOUR    PARTS.       THE    FIRST    DIGIT    IS    THE    SYSTEM 

C  CLASSIFICATION,    1,2,3,4.5,    uR    6.       THE    NEXT    TiO    DIGITS    ARE    THE 

C  STARTING     NODE     AND    IHE     FINISHING    ^CdE    OF    THE     3FANCK.       THE    NEXT 

C  DIGIT    IS    THE    FLCN    IN    THE    3RA.JCH,    ZERO    IS    CCCLING    FLOW,     ONE    IS 

C  ENGINE    FLOW,     TWO    IS    COMBINED    COOLING    AND    ENGINE    FLOW.        THE    LAST 

C  THO    DIGITS    ARE    FOR    THE    ORDER    NUMBER    OF    THE    FITTING    IN    THE    BRANCH. 

C 

C  EXAMPLE:      113101       SYSTEM    ONE,    NODS    ONE    TC    THREE,     ENGINE    FL05?, 

C  FIRST    FITTING    IN     BRANCH 

C 


') 


GECM 

1)  =  1  13101 

GECM 

2   =  1  240  0  1 

GECM 

3)  =  1361  0  1 

GECM 

4)  =  145001 

ERANC 

H=4 

CALL 

FETCMS     ('CiaSCRN 

WRITE 

(6,600) 

GO    TC 

GECM 

1)  =2  12201 

GECM  1 

2   =223101 

GECM 

3    =224001 

GECM 

4    =236101 

GECM 

5   =245001 

ERANC 

H=5 

CALL 

FRTCMS     ('CIRSCRN 

writ: 

(6.o0  1) 

GO    TC 

GECM 

1)=3  12201 

GECM 

2   =323101 

GECM 

3    =324001 

GECM 

4)  =  335101 

GECM 

5   =345001 

GECM 

6    =356201 

ERANC 

^H=6 

CALL 

FETCMS     ('CLRSCRN 

') 


') 

WRITE  (6-602) 
GO    TO    10 
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10 


20 


30 


40 


600 


13101 

21*001 
35101 

4  5001 
56201 

MS     ('CIESCEN     ') 
0  3) 

12201 

25001 
35101 
56201 

.MS     ('CLHSCEN     ') 
OU) 

13101 

25001 
35101 

5  6201 

as     ('CLESCEM     •) 
0  5) 


(6,6  06) 


E2ADI    IS     4N    INTEG2H    R  EAE    SaBROailNE    TO    PBOTECT    THE    ER0GHA.1     FROM 
CRASHING    OH    NOIL    INPUT    OS    ESEOE    INPJT.       IT    ALSO    ALLCHS     FREE 
FCFMAT    INPUT. 


CAIL    RSADI  (D0MMY,5) 
CALL    rETCMSC  CLESCEN     •) 


NOW    EACH     EEANCH    MILL     BE    FILLED    UP    KITH    THE     FITTINGS. 
AEE    TAKEN     IN     NDMEBICALLY    ASCENDING    OBDEE. 

CH 


3EANCHSS 


DO  UO  1=1.  SEAN 
CALL  MENU  ( 
THE  MENU  CH 

AND  'fOU  MOS 

IF  ((TYPE.  GE 
CALL  FBT' 

WEITE(6- 
GO  TO  20 

ZEBO  MEANS 

IF  (TYPE- E a 

M=M  +  1 

M.TEEM, TYPE,GEOM  (I)  ) 

CICES    ARE    0    THEU    30.    CHANGE    THE    NUMBEE    OF    FITTINGS 

T    CHANGE    THE    FOLLOWING    IF    CONDITION    ACCORDINGLY 

.0)  .AND.  (TYPE. LI.  31)  )     GO    TO     30 

CMS('CLESCHN     ') 

607) 

NO    MORE     FITTINGS    THIS    BRANCH 
.0)     GO    TO    40 


A    FITTING    HAS    BEEN     SELECTED, 
TO    ENTEi    THE    FITTING. 


SOU    GO    TO    THE    BRANCHING    SUBROUTINE 


CALL    SELECT     (M, SOH I.GECM (I)  ,  TYPE, WORKI,  WOHKE) 
CALL    FETCMS     ('CLESCEN    •) 
G£CM(I).=GEO«  (I)  +1 
GO    TO     2  0 
CONTINUE 

ALL    THE    FITTINGS    HAVE    BEEN    ENTEBED    AND    THE    DATA    FILE    IS    ABOUT 

TO    BE    WEITTEN. 

CAIL    SOMOOTfWORKI.  «"0R  KE.M) 

FCEMATC        SYSTEM    IS    CL^SS    ONE,     SEPAEAIE    ENGINE/COOLING     FLOWS.'/ 
*'       YOU    HILL    BE    ZliTZRING    FITTINGS    FOR    FOUR    BRANCHES.'/ 
■f'  1.       ENGINE    INLET     TO    THE    ENGINE.  '/ 

♦  '  2.       COOLING    INLET    TO    THE    COOLING    FAN.'/ 
+  '  3.        ENGINE    EXHAUST    10    THE    ATMOSPHERE.'/ 

♦  '  4,        COOLING    FAN     EXHAUST    10     THE    ATMOSPHERE,     VIA    GT    MODULE.') 
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601 


rOa.lATC     SYSTEM 
CO CLING    FLOW 
COOLIWG    HOT 
3EANCHES-  '/ 


602 


FORMATC 

FLCiS    FOR 
INSTALLED 


603 


60U 


605 


IS    CLASS    TTJO,    CG13IMED    INLET    FCR    ENGINE    AND    '/ 
AND    3S2ABATS    FLOWS    FOE    ENGINE    EXHAJST    AND    .IOdIjLZ'/ 
[XKAOST.        YOU    WILL    3S    ENTERING     FITTINGS     FOR     FIVE'/ 


•/' 


1. 


'/' 


WYE. 


1. 

3. 
a. 


COMBINED    INLET    TO    THE    C0:i3INED    SECTION    OF    A    DIVERGENT    1«"YE 
2.        .IAIN    SECTION    OF    A    DIVE?,3SNT    SYE    TO    THE    ENGINE.'/ 
BRANCH    SECTION    OF    THE    uIVE.t3ENT    -.'YE    TO    THE    COOLIiJG    PAN.'/ 
ENGINE    EXHAJST    TO    ATMOSPHERE.     '/ 

COOLING    FAN     EXHAUST    TO    THE    ATMOSPHERE    VIA    GT    MOOaLE. ') 
3YSTEK    IS    CLASS    THREE,    COMBINED    INLETS     AND    EXHAUST    '/ 
THE    ENGINE    AND    MODULE    COOLING.        A    CCCLING     FAN     IS'/ 
YOU    WILL    BE    ENTERING    FITTINGS    FOR     SIX    BRANCHES.'/ 


COMBINED    INLET    TO    THE    COMBINED    SECTION    OF    A    DIVERGENT    WYE 
2.        MAIN    SECTION    OF    THE    DIVERGENT    WYE    TO    THE    ENGINE.'/ 
BRANCH    SECTION    OF    THE    DIVERGENT    TYE    TO    THE    COOLING    FAN.'/ 
ENGINE    EXHAUST    TO    MAIN    SECTION    OF    A    CCNVERGENT    WYE.'/ 
AN    SDUCTOR    INSTALLED    AT    THE    EXHAUST    PLANE    OF    THE    ENGINE'/ 
IS    CONSIDERED    TO    BE    A    CONTRACTION    FOLLOWED    BY    THE    MAIN'/ 
SECTION    OF    A    CONVERGING    WYE    FOR    THE    PURPOSES    OF    THIS     '/ 
PROGRAM.  '/ 
COOLING    FAN     EXHAUST    TO    THE    BRANCH    SECTION    OF    A    CONVERGENT 

b.       COMBINED    SEC: 
OEMATC        SYSTEH    IS    CJ 
ANE    COOLING    FLOWS, 
HOT    MODULE    COOLING, 


EN 


TEH 
1. 
2. 
3. 


riON    OF    A    CONVERGENT    WYE    TO    THE    ATMOSPHERE.') 
.ASS    FOUR;     SEPARATE    INLETS    FOE    THE    ENGINE'/ 
COMBINED    FLOWS    FOR    THE    ENGINE    EXHAUST    AND'/ 
A    COOLING    FAN    IS    INSTALLED.'/ 


FITTINGS    "OR     FIVE    BRANCHES..'/ 

ENGINE    INLET    TO    THE    ENGINE. '/ 

COOLING    INLET    TO    THE    COOLING    FAN.'/ 

ENGINE    EXHAUST    TO    MAIN    SECTION    OF    A    CONVERGENT    3YE.'/ 

AN    EDUCTOR    INSTALLED    AT    THE    EXHAUST    PLANE    OF    THE    ENGINE'/ 

IS    CONSIDERED    TO    BE    A    CONTRACTION     FOLLOWED    BY    THE     MAIN'/ 

SECTION    OF    A    CONVERGENT    WYE    FOR    THE    PURPOSES    OF    THIS'/ 

PROGRAM.       '/ 

COOLING    FAN     EXHAUST    TO    THE    BRANCH    SECTION    OF    A    CONVERGENT 


WYE. ' / 

'  5.       COMBINED    SECTION    OF    A    CONVERGENT    PYE    TO    THE    ATMOSPHERE. 
ORMATr'        SYSTEM    IS    CLASS    FIVE,     COMBINED    INLET    AND    EXHAUST    Fi.OR. 

AN    EDUCTOR    SYSTEM     IS    USED    TO    PUMP    COOLING    AIR.'/ 

ENTER     FITTINGS    FCR     FIVE    BRANCHES. '/ 


'/ 


'/' 


/• 


1. 


WYE 


3. 


a. 


♦ 

•f  E 


COMBINED    INLET    TO    THE    COMBINED    SECTION    OF    A    DIVERGENT 
2.       MAIN    SECTION    OF    THE    DIVERGENT    WYE    TO    THE    ENGINE-'/ 
THE     EinCTOR    ONLY,     THIS    PROGRAM    CONSIDERS    THIS     BRANCH    TO'/ 
CONSIST    OF    ONLY    TWO    COMPONENTS,    A    CONTRACTION    AND     THE'/ 
MAIN     SECTION    OF    A    CONVERGENT    WYE    INSTALLED    AT    THE    EXHAUST 

PLANE    OF    THE    ENGINE.'/ 
BRANCH    SECTION    OF    A    DIVERGENT    WYE    VIA    THE    GT    MODULE    TO'/ 
THE    EDUCTOR.        THE    PROGRAM    CONSIDERS    THIS    PART    OF    THE'/ 
EDUCTCR    TO    BE    THE    BRANCH    SECTION    OF    A    CONVERGENT    WYE.'/ 
COMBINED    SECTION    OF    A    CONVERGING    WYE    TO    THE    ATMOSPHERE.'/ 
INSTALLATION    OF    A    «ASTE    HEAT    BOILER    IS    NOT    RECCMENDED. ' ) 
FORMAT  ('        SYSTEM    IS   ZLkSS    SIX:     SEPARATE    INLETS    FOR    THE     ENGINE'/ 
AND    COOLING    FLOWS,     COMBINED    FLOWS    FOR    VAZ    ENGINE    EXHAUST    AND' 
HOT    MODULE    CCOLING.        AN    EDUCTOR    IS    INSTALLED.'/ 
ENTER     FITTINGS    FOR     FOOH    BRANCHES. •/ 

1.  ENGINE    INLIT     TO    THE    ENGINE. •/ 

2.  COOLING    INLET    TO    THE    EDUCTOR    VIA    THE    GT    MODULE.'/ 
THE     PECGEAM    CONSIDERS    THIS    PART    OF    THE    EDUCTOR    TO    BE'/ 
THE     ERANCH    SECTION    OF    A    CONVERGENT     WYE.'/ 

3.  THE    EDUCTOR     ONLY,     THIS    PROGRAM    CONSIDERS    THIS     ERANCH    TO'/ 
CONSIST    OF    ONLY    TWO    COMPONENTS,    A    CONTRACTION     AND    THE'/ 
MAIN     SECTION    OF    A    CONVERGENT    WYE    INSTALLED    AT    THE    EXHAUST 

PLANE    OF    THE    ENGINE.  •/ 
THE    COMBINED    SECTION    OF    A    CONVERGENT    WYE    TO    THE    ATMOSPHEE 


'/ 


/' 


606 
607 


ORMATf/ 
FCRMAT(' 

FETUEN 
END 


ENTEH    CERO    TO    CONTINUE') 
YOO    DID    NOT    ENTER    A    CORRECT    FITTING 


ID    NUMBER.') 
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OMEEfi    APP 
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DATA    FILE 
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DATA 
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OF  IT  UNDER 
NAMED  "DUCT 
Y  THE  USER 
GED  FILE. 
L2  OF  SYSTEM 
OF  THE  FITTIN 
BEE  IN  THE 


THIS  SUBROUTINE  DOES 
TO  GET  A  DIFFERENT  SY 
PART  OF  THE  PROGRAM. 


NOT  CHANGE  THE  SYSTEf. 
STEM  YOU  MUSI  aUILD  II 


CLASSIFICATION. 
WITH  THE  BUILD 
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20 

22 

30 


HO 
"50 

52 
60 


62 
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'66 


******* 

SUEEO 

REAL 

INTEG 

♦ 
DI2EN 
DATA 
READ 
DO  10 
RE 

+ 
CONTI 
SEWIN 
WRITE 
READ 

WR 

GO 

IF  (AN 

I?    AN 

IF  (AN 


***  ** 

JTINE 
A,  WOE 
EE  N, 
FI 
SION 
CHANG 
(8,60 

AD     (8 

NUE 
D    3 

(5,o0 

NS.  EQ 
WIND 
ITE     ( 
TO    2 
S.EQ. 


««  ********* 

ED 
KR 

INDEX, ANS.C 
TID 

INDEX  (200)  . 
E/'C'/,DELE 
0)  SE5IAL,N 
N 

,601)     INDEX 
HCRKR  (I, 


02) 

3,ZND=22,EH 

.CHANGE)  .OR 

5 

6,604) 

0 

CHANGE 

DE 

ADD) 


******************************************* 

HANGZ,D2LETE,ADD,L,M,3,YES, NC, iORKI ,P, Z, 

HOBKR  (20  0,  4)  .WORK  I  (20  0  ,  2) 

IE/ 'D'// ADD/' A'/, YES/' Y'/zNO/' N'/ 

11)  ,WORKI,fI,  1)  ,  WOEKI  (I,  2)  ,WORKH  (I,  1)  , 
2)  ,  W0RKE(I,3)  ,WOSKH(I,  4) 


*C 

C 

*c 
c 
c 
c 
c 
c 
c 
c 
c 

GC 

c 

c 
c 
c 
c 
c 
c 
«c 


lANGE) 

:lete5 

)D)     GO 


GO 
GO 
TO 


R=22)      ANS 

.  (ANS. EQ. DELETE) 


TO  40 
TO  30 
150 


OR.  (ANS.  EQ.  ADD)  )     GO    TO    30 


FITTING    IS    TO    EE   CHANGED,    A    NEW    FITTING    SUBSTITUTED    FOR    THE    OLD 
HHAT    INDEX    NUMBER,    ;i    ??? 


,605) 
^'I(M,5) 


HRITE 

CALL    E 

DO    YOU    NEED    A    hENO 

WRITS     (6,o06)_ 

READ     (5,  d03,END=52 

:cMS    ( — 

lNS.  EQ.  Y 


CALL    FRfcMS't' CIRs6eN 
REMIND 


IF 


:es) 


EeR  =  5  2) 
OR.  (ANS.EQ 


ANS 
NO)  )     GO    10    60 


WRITE     (6,604) 
50 


GO    TO 
CONTINUE 
I"  (ANS.EQ.  YES)     GO 
WHITE     (6,607) 
CALL    READI  (TYPE,5) 
GO    TO    64 


:o    62 


CALL    THE     MENU     AND    MAKE    TBE    CHANGE 

CALL    MENU      (0  .  0  .TYP  S,  W  ORK  I  (M  ,  1 )  ) 

CALL    SELECT(M,  1,W0RKI   (M,  1)  ,  TYPE  ,  WORKI,  WOEKR 

ANY    MCHE    CHANGES    ??? 

WRITE     (6,608) 

HEAD     (5,603,  END=6a,SRB=6a)     ANS 


50 


63 
70 

'30 


90 

100 


110 

120 


130 
132 

lao 

'150 


160 


170 
180 


((ANS. 

EEwi: 


(IND 

WRITE 

GO    TO 
CCNTINOS 
I?    iANS.HQ.YES) 
GO    TO    250 


YES)  .OR.  (  AN£.£:Q..iC)  )     GO    TO     70 


|6,60a, 


GO    TO     40 


A    riTTING    IS    TO    EE    DELETED 


WRITE 

CAIL 

IF  (.1. 

N=N-1 

Z=0 

REWOH 

DO    11 

IE 

IF 

IF 


(6,605) 
EEADI     ' 


EQ.  N) 


'EdH 


C    120 


CO 
KO 

WO 

wo 

WO 

wo 

CCNTI 

CONTI 
WHITS 
AiNY  1 
WRITE 
HEAD 

WE 

GO 

CONTI 


K  T 
0  I 
ST= 
(TE 

^-<^ 

mO 

GO 
NTI 
HKI 

EKR 
RKR 
EKR 
RSR 
NUE 
MOS 

ORE 
WIN 


HE    ID     NDHBEES     AND    RELOAD    THE    FILE 
=  M.N 

work: 


I  (I>1.  1)  -  WOEKI  (I,  1) 

T.  1)     2  =  2*  1 

EQ.1)  .AND.  (Z.EQ.O)  ) 

I-  1)=W0RKI(I*1,  1) 

100 


;o    TO   90 


=WCRKI 

1*1,2 
1*1,  1 

=WCRKR 

=HOHKR 

1*1,2 

=WCEKa 

1  +  1,  3 

=WOHKE 

1*1,4 

TO 

NDE 

NS. 

GO    TO    25 


5T.G 
EST- 
BKI( 

TO 
NOE 

It'i 


,609) 

DELETIONS    ??  ? 
,610) 

603,  END=132,SRR=132)     ANS 
. EQ. YES) .OH. ( ANS.EQ.NO) )     GO    TO     140 
D    3 

|6^604) 

EQ.YES)     GO    TO    30 
0 


A    FITTING    IS    TO   BE    ADDED 


WRITE 

CAIL 

FITIC 

S=N-M 

N=N*1 

E=t"*1 

OPEN 

DO    16 

wc 

WO 

wo 

WO 
KC 
WO 

CONTI 

Z=0 

HEBOH 

DC  18 
TE 
IF 


CONTI 
DO    YO 


(6.611)  _ 
HEADx  (M,5) 
=  WOaKI(a,  1)  *1 


UP    THE    DATA    FILE     TO    ADD    THE 
0    1  =  1  ,S 

HKI  (N  +  1-I,  1)  =WORKI  (N-I,1) 
EKI  (N*1-I,2)  =WORKI  N-I,2 
EKR  (N*1-I  ,  1)  =WORKR  (N-I,1 
HKR  N  +  1-I,2)=WORKRN-I,2' 
EKR  (N*1-I,3)  =WOHKR  (N-I,3  i 
EKR  {N*1-I,4)  =W0RKS(N-I,4' 
NUE 


NEW  FITTING 


K  THE  ID  NOaBEBS 
0  I=P,N 
ST= 
(  (TES 

z=z* 


H0  6kI  fl.l) -WORKI  (1-1,1) 
EST.LT.  100)  .AND.     Z.  ""    ' 
Z*1 
GO    TO    180 

HO  HKI  (I,  1)=W0RKI  (1,1)  *1 
NOE 
0   NEED    A    BEND    ??? 


22.0))     GO    TO    170 
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20  0 

'210 
^220 

'230 
232 
240 

'250 
252 
260 


600 
60  1 
602 


603 
60U 
605 
606 
607 
608 
609 
610 
61  1 
612 
613 


j5,D 


WRIT 
READ 

CALL  FRIC 
If  ((ANS. 
EiWIND 
WRITE 
GO  TO 
CC^TINUE 
IF  (ANS.2Q 
WRiTE  (6- 
CALL  READ 
GO  TO  220 
GET  THE  N 
CALL  MENU 
CALL  SELZ 
DO  YCU  WA 
WRITE  i6, 
HEAD     (5,6 

IF   ((a:is. 

REWIND 
WRITS 
GO    TO 
CONTINOE 
IF     (ANS.  E 
DO    YOU   WA 
WRITE     (6, 
READ     (5,6 
.IF     ((ANS. 
RiWIND 
'*RITE 
GO    TD 
CONTINUE 
IF     (ANS.  E 
CALL    S 
RZfiIND    8 
FCE.1AT(I6 
FORMAT  (13 
FORMAT 


6  06) 

03,£;ND  =  102,EHE=192)     ANS 

MS     {'CIESCEN     M 

EQ.  YES)  .OR.  (ANS.  EC- NO)  ) 

\ 


GO    TO    20D 


6.60U) 

90 


.YES)     GO    TO     210 

607) 

I  (TYPE, 5) 

E;J    FITTING 

C 


^U     (O.O.TYPE,  FITID) 

.ZCT(P,  I.FITID ,TYEE,WORKI, WORKR) 

«"ANT    TO    ADD    ANOTHER    FITTING    ??? 

6  12) 

03,ZNE=232,EHR=232)     ANS 

EQ.  YES)  .OR.  (  ANS.EQ.iJO)  )     GO    TO    240 


6-60tt) 


i^j 


Q.YES)     GO    TO     150 

NT    TO    MAKE    ANY    OTHER    CHANGES    ??? 

613) 

03,  SND  =  252,ERR  =  252)     ANS 

ZQ.  YES).OR.  (  ANS.EQ.NO)  )     GO    TO     260 


il6 


609) 


!Q.YES)     GO    TO     20 

;u;iooT  (WORKI,  wohkh,N) 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
RETURN 
END 


A1) 


,/,I3 

,  3X,I 
DO  Y 
YOUR 
COPY 
SAVE 
PROG 


YOO 

WHAT 

DO     Y 

WHAT 

WANT 

DELE 

WA  NT 

AFTE 

WANT 

WANT 


6,3X,I2,3X,F10.U,3X,F10-4,3X.F10.4,3X,F10.4) 
CU    WANT     TO    CHANGr:,     DELETE,    Ott     AED     (C/D/A)?'/ 
OLD    FILE    HILL    BE    PERMANENTLY    CHANGED,    DID    YOO'/ 
THE    OLD    FILE    UNDER     A    NEK    NAME    IF    YOU    WANTED    TO'/ 
IT?       IF    NOT,    ZNTEH    TWO    NULL    STRINGS    TO    KILL    IHZV 
RAM.  ') 

aCST    ENTER    A    LETTER    INDICATED     IN    THE    ERACKETS.') 

LINE    DO    YOU    WANT    10    EDIT?') 
CD    NEED     A    MENU     (Y/N)  ?') 

IS    THE    FITTING    TY?^    NOaBER?') 

TO    CHANGE    ANCTHEE    FITTING     (Y/N)?') 
TION    COMPLETE.  ') 

TO    DELETE    ANOTHER    FITTING     (Y/N)?') 
R    WHAT     LINE    DO    YOU    WANT    TO    ADD    ANCTHEl 

TO    ADD     ANOTHER    FITTING     (Y/N)?') 

TO    MAKE    ANY    OTHZB    CHANGES     (Y/N)?') 


;E    FITTING?') 
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CCIPCTE    SUl 

THE  DUCT  D; 
DESIEED  OPE 
(DEGREES  F) 
HCHSEPOWEE, 

PZBFORMANC! 
UNDEH    FILE 

SUEEOUTINE 
REAL    KCRKR, 

♦  ADW.1,; 
INTEGER    N,] 

♦  ANS-Y! 
DIMENSION  ] 
DATA     YES/'l 

CALL    ERTca: 

HEAD  FILE  5 
READ  (8-60C 
READ  INDEX, 
FOE  EACH  F; 
DO  10  1=1.1 
READ     (5, 

cc  NTi:iUS 
REWIND  8 
FIND    GOT    Hf 

class=work: 

SET    0?    FOR 

IF  (CLASS.  E! 

IF    CLASS.  £■; 

IF    CLASS. E 

IF    CLASS. E 

IF    CLASS. E 

IF    CLASS. E 

IF  (CLASS.  E 

SEARCH    FOR 

DONE    BY    LO 

DO    70    1=1, 

IF  (WORK 

IF  (WOEK 

IF  (WORK 

IF  (WORK 

GO    TO    7 

ADf;C=HO 

ADWB=WO 

ALFAD  =  W 

GO    TO    7 

ADKa=MO 

GO    TO    7 

ACWC=WC 

ACWB=WO 

ALFAC=W 

GO    TO    7 

ACWM=WO 

CCNTINDS 

CuNTIMOE 

M=2 

THE  INDEX 
IT  IS  aSED 
PPESSORE  D 
FIND  THE  I 
FITISiri)  = 
DO  90  i=1, 
TEST=HO 


tTINE:  ? 

FILE  IS 
:iNG  ?0I 
"HE  AKBI 
)C  POWEE 
ID  DOCT 
:PUT  DAT 


SOOaCES  PESFO 

HEAD  A;1D  the 
NT.  INPUT  TH 
SNT  PRESSJRE 

TURBINE  3PEE 
RESISTANCES. 
A. 


««  ««»  ««« 

H.^ANCE    D 
s»  *««  ««« 

N    THE    'JS 
E    AM5IEN 
(PSIA), 
D.       OUT? 
THE    OUT 


ATA    OF    SYSTEM 

ER     --nST    INPUT    THE  C 

T     TEaPEEATURE  C 

AND    aUclIDITY     (GRAINS),  C 

UT    IS    THE    ENGINE  C 

PUT    GOES    TO    YOOH    DISK  C 

C 


D,HP,NFT,AC73 

■,SHOSTD,  C.1F0, 

, CLASS, oHANCH 


,  ACW.1 ,  AC 

cf.;i.ia:c^o 

,F  IT  1  Si  , 


WC,ACWB,AMC, 
P.1AX.X 

J,  TEST,  NBR,  OFF,  SERIAL, 


PO.HUSI 
lCALFAC 
:X,WOEKI 
IC 
:X  (2  0  0)  ,  HORKI  (20  0,2)  ,HORKH  (20  0,4)  ,FIT1ST(7)  ,NBR(6) 

NC/' N'  / 

CItiSCPN     ') 

:^L    NUMBER    AND    HOW    a  A 
IEEIAL,N 

nuhber, fitting  type, 
:ng 


NY    FITTINGS    ARE    IN    THE    FILE 
AND    FOUR     ELEMENTS    OF     DATA 


INDEX 
)EKE  (I, 


fl)  .WORKIUt  1)  ,*0EKI(I,2)  ,  WORKS  (I,  1)  , 
i)  ,  WORKS  (i,3)  ,WORKR(f  ,4) 


.T    CLASS    SYSTEM    IS    IN    THE    DUCT    DATA    FILE 


11/100000 

;    CORRECT    NUMBER    OF    BRANCH 

ERANCH=4 

BRANCH  =5 

ERANCH=6 

BRANCH =5 

EHANCH=5 

BRANCH =4 

GO    TO     80 
:    AfiEAS.        .^OST    BE    KNOWN 
JG    FOR    THE    "WYE"    FIXTIN 


IS    FOR    THE    SYSTEM 


FOR    MATCHING.       SEARCH    IS 
IYPE3,     13,14,15,16. 


I,  2).  EC  1  3)  GO  TO    30 

I,  2)  .EQ.  1  4)  GO  TO    40 

I,  2).EQ.  1  5)  GO  TO    5  0 

I,  2)  .ZQ.  16  GO  TO    60 


(Irl) 


R  (1,1) 

R  (1,11 

Kff  (f,3) 

R  (1,1) 


:F  (TEST 
FIT1 

M=a* 


NUMBER 
IN    TH 
HOPS. 
NDEX    W 
1 
N 

RKI  (1  + 
.ZQ.  1) 
ST  (a)  = 
1 


OF    THE    FIRST    FITTING    OF    THE    BRANCH    MUST    BE    KHO:?N. 
E    DO    LOOPS    OF    THE    SYSTE.I    ANALYSIS    TO    FIND    BRANCH 

NEXT    LOOP    SEARCHES    FOE    THESE    INDEXES.        LOOP    ;»ILL 
HEN    ID    NU;i3EHS    DIFFS:i    3Y    dOHE    THAN    ONE. 


1,1)-  HOEKI  (I,  1) 

GO    TO    90 
INDEX  (1+1) 


53 


90  CONTINUE 

C  G2T    THE    OPEEATING    CONDITIONS    AND    POWER    HE^U IR EMEN IS . 

CALL    OPTOND(T0,P0, HUMID) 
C  IF    A    FAN     IS    INSTALLED    GcTl    FAN    CHAR ACTEH  ISTICS 

IF     (CLASS. GT- 4)     GO    TO    98 
CALL     FAN     (EHOSTD,CFM0  ,CFMSAX,DP.1AJC,K) 
95  CALL    PWaPT     (HP,NPT,TQ ,P0) 

C  GO    TO    THE    SYSTiii    SaBHOUTINS    rAILORED    FOR    THE    SYSTEM 

98  GO    TO     (100,150,200,25 0-300,350) -CLASS 

100       CALL    SYS1  (SERIAL, N,WORKI,;<OfitCR, HP, N?T,?IT13T, TO, POfHOMID, 

♦  FHOSID,CFM0  ,CFM^AX,Di=HAZ,K) 
GO    TO    UOO 

15  0       CALL    SYS  2  (SERIAL,  N,HO  RKI  ,;^ORKH,  HP  ,  NPT,  FIT1  S  T  ,T0  ,  PO,  HOMIE, 

♦  ALFAr,ADl!f3- ADWC,  ADWa, 

>  RHOSTD,C?nO  ,CFMaAX,DP!1AX,K) 

GO    TO    UOO 
200       CALL    SYS3  (SERIAL, N,30RKI,S0RKR, HP, N?r,?IT1ST, TO, ?0,HOMID, 

♦  ALFAE,AD"rfB,  ADWC,  ADWM,  ALF  AC  ,  AC  WB,  ACHC  ,  ACMd  , 

♦  RHOSTC,CF30 ,CFMMAX,DPMAX,K) 
GO    TO    40  0 

250       CALL    SYS4 (SERIAL, N,?0RKI,30RKR, HP, NPT,FIT1ST, TO, PO, HOniC, 

♦  ALFAC.ACWa, ACWC, ACWM, 

♦  RHOSICcFMO  ,CF3MAX,D?f1AX,K) 
GO    TO    400 

300       CALL    SYS5 (SERIAL, N,H0RKI,30RXfi, HP, N?T,rIT1ST, TO, PO, HOHID, 
+  ALFA£,ADW5,  ADVJC,  AD«:i,  ALF  AC  ,  AC  WB,  ACWC,ACWM) 

GO    TO    40  0 
350       CALL    3YS6  (SEEI AL, N- -0 RKI , aOBK R, HP , NP T, FIT1 ST ,T0, P 0, HDMID , 

♦  ALFAC,ACKB, ACKC,AC3M) 
400       CONTINUE 

C  DO    YOU    WANT    TO    COMPUTE    WITH    DIFFERENT    OPERATING    CONDITIONS 

410       WRITS     (6,602) 

HEAD     (5,d03,i:ND=420,ERR  =  420)     ANS 
IF     (  (ANS.  EQ.  YES)  .OR.  (ANS. EQ. NO)  )     GO    TO     430 
420  REWIND     5 

WHITE     (6,604) 
GO    TO     4  10 
430       CONTINUE 


600       F0fMAI(I6,/ 


I?- (ANS.EQ.YES|    GO    TO    95 

IX    "  ' 

-  -  -  ,  -'C 

♦  NS     (Y/li|?') 
"'-iMAKAl" 


ouu        furniij.ixD,/,xji 

60  1       FORMAT(I3,3X,I6.3X,I2,3X,?10.4,3X,F10.4.3X,F10.4,3X,F10.4) 

602       FOEMATT        DO    YOU    WANT    TO    COMPUTE    WITH    DIFFERENT    OPEBATIIJG 


CONDITIO 


603  FOEflAI(AI) 

604  FOEMAT('        YOU     MUST    ENTER    A    LETTER    INDICATED     IN    THE    BRACKETS.') 

RETURN 
END 
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c 

C 

c 
c 
c 
c 


5 
7 
10 


20 
30 

ao 


42 

50 

60 

70 

500 

601 

602 

603 

604 

605 

606 


IF 


INSTH'JCr 
THIS    303 

cc-puTs: 

TO    SEE    I 

THE    aSER 

lYPEKPIT 

**•«««  ««* 

SUEEOOTI 

INIZGEH 

DATA    LON 

WRITE  (6, 

AD       5, 

((Alls. 

P.E'-IN 

hRITE 

GO    TO 

IF  (ANS.Z 

3CEL= 

WRITE 

GC    TO 

SORL=0 

CONTINUE 

WRITE  (6, 

HEAD       5, 

IF  ((ANS. 

SEWIN 

WRITE 

GO    TO 

IF  (AUS-E 

TEFa= 

WRITE 

GO    TO 

tee:i=i 


*  *  *• 

sua 

*  «  •« 

ine 

KING 
E  US 
US  IN 

ERJII 
«  «  «• 

NST  ( 

*  TER 

6si, 


HOUTI 
IS    CA 

TT 

ER    RA 
G    A    C 
NALS 
**«*« 

SORL, 
M-ANS 
CfiT,I 


««*  «* 

NE:    L 
««»  «« 

LLED 

IS  A 
NTS  1 
ET  IE 
DO  SO 
««»  ** 

TERM) 
.LONG 

ypE/' 


,CNG    OR    SHOHT,     CRT    OR    TYPEWRITES  C 

IN    TiiZ    ayiLD    SUBROUTINE.       IT     DOES    MOT       C 


PRO  G  HA  a 
D    IF 


AN    iD.IINISTRATIVE     PART    OF    THE 
LONG    OH    iaOST    INSTRUCTIONS,    AN 
ERJINAL    OH    TYPEWSITER    TEFMxNAL 
"T    GET    Ta£    .1ENUS    OVER    AND    OVER.  i. 

mm*m****m*  *******  m*m*m**m ************* *Q 


SHORT, CRT, TYPE 
.',  'S',  'C'TV 


SNE  =  7,  EER  =  7) 
ONG)  .OR.  (ANS. 

02) 


ANS 

EQ-SHORT) ) 


GO    TO    10 


SHORT)GO    TO 
603) 


6  0  4) 

601,  ENE=42,ERR=42) 
EQ.CRT)  .OR.  (ANS.EQ. 
D     5 

(6.602) 
40 
Q.CET)  GO    TO    6  0 

(6,605) 
76 


ANS 
TYPE)) 


GO    TO    53 


WRITE  (6, 
CONTINUE 


FORMAT 
FORMAT 
FORMAT 
FOfiaAI 
FORMAT 
F05MAI 
FORMAT 
RETURN 
END 


605) 

DO 


:ai) 


YCO    WANT    LONG    OH    SHOHT    INSTRUCTIONS     (L/S)?«) 


YOU  MOST    ENTER    THE 

YOU  HAVE    SELECTED    : 

ARE  YCO    WORKING    ON 

YOU  ARE    WORKING    ON 

YOU  ARE    WORKING    ON 


LETTER    INCICATED    IN    THE    BRACKETS.') 

HE    LONG    INSTRUCTIONS.') 

A    CRT    OR    TYPEWRITER    TERMINAL     (C/T)?') 

A    TYPEWRITER    TERMINAL.') 

A    CHT    TEEiUNAL.  ') 
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c 

c«»»  * 

c 

c 

c 

c 


10 

12 
15 

'20 
22 


25 


30 


40 
60  0 

601 

602 
603 

604 
605 
606 


SY  ST  ^ 
♦***»* 

CAILE 
THE  V 
CAN  N 
THE  3 
urn-**** 

SuEEO 

INTEG 

DATA 

IF  (SO 

DOES 

WRITE 

READ  ( 

"41 

HR 
GO 
DOES 

WHITE 
READ  ( 

"'it 
GO 

IF  (AN 
AN 

GO 
IS  TH 
HRITE 
READ  ( 

WR 

GO 

SYSTE 

AND  I 

DUCT 


.1    saBROOTINE:    DE 

D  3Y  THE  50ILD  S 
AHIATIDNS  IN  OUC 
CT  CHANGE  THE  SY 
UILD     SOBROaTINE 

UTINE  SYSIEM(SOa 
ER.SORL,  CLASS,  AN 
YES/'  '£'  /t  NO/'N'/ 
EL.  EQ. SHORT)  GO  T 
THE  COOLING  AIR 
(6-  600) 

5,601  ,£:ND  =  7,EaH  = 
NS1.  EO.  YES)  .OR-  ( 
WIND    D 
ITE (6,60  2) 

TO    5 
THE    COOLING 


^Mv  **tm*mm*  ************  ****^  ***********  m****  *Q 
TERJINE3    WHICH    SY3TE.1,     1,2, 3, 4, 5, OR    6  C 

************************************* **9****Q 

UBEOUTINE.  U5ZD  TO  SET  JP  THE  PROGRAM  FOR  C 
T  SYSTE.iS  AVAILABLE.  THE  EDITING  3'JBROJTIMEC 
STEM  TYPE.  ONCE  SET  J?  HERE  ANOTHER  3UN  OF  C 
IS    SEQUIRED    TO    GET    A    DIFFERENT    SYSTEM.  C 

***************************************  ***^,  *Q 

L, CLASS) 

SI, AN S2. AN  33 , YES, NO, SHORT 

, SHORT/0/ 

0    30 

BRANCH    OFF    THE    MAIN    INLET    ??? 

7)  ANSI 

ANSI. EQ.NO)) GO    TO     10 


AIR 
(6.603) 

5.D01  ,END  =  12,"RR 
NS2.  EQ.  YES)  .OR.  ( 
ITE (6,602) 

TO     l6 
32. EQ.YES)    GO    TO     20 
S3= YES 

ERE     A    COOLING 


JOIN    THE    MAIN    EXHAUST    ??? 


=  12).ANS2 

ANS2. Ew.NO) )  GO    TO     15 


[6,  eon) 

,601  ,END  = 


FA 


15 
IF 
IF 
IF 
IF 
IF( 
GO 
SHORT 
WRITE 
CALL 
IF(,(C 
*E 
GO 
CCNTI 
FORMA 

*(Y.N) 
FORMA 
FORMA 
FORMA 

+  ?  (Y, 
FORMA 
FORMA 
FORMA 
EETOfl 
END 


^.uw  .  ,x.i,u-22,ERR 

NS3,  EO.  TES)  .OH.  ( 

WIND     5 

ITE (6,602) 

TO    2  0 

M    CLASSIFICATION 

A     COOLING    FAN 

JOINED    TOGET 

EQ.  NO    )  .AND. 

EQ.  YES'   .AND. 
_-    ^^^^ 

AND. 


ARE 
NS1 
NS1 
NS1 
NS1 
NS1 
NS1 

40 

INS 


cQ.  YES 
EQ.NO 
EQ.  YES) 

EC  NO    'i 


,AND, 
,AND. 


N    INSTALLED    ??? 

=22) ANS3 

ANS3. EQ. NO)) GO    TO    25 


DEPENDS    ON    THE    CONFIGURATION    OF    THE    SYSTEM 
IS    INSTALLED.        CONFIGURATION    MEANS    HOW    THE 
HER    IN    THE    SYSTEM. 
ANS2. E2.N0    ) ) CLAS3=1 
ANS2. Eq.no    ) ) CLASS=2 

ANS2.  EQ.  YES)  .AND.  (AfJS  3  .  EQ  .  YES) )  CLASS=3 
ANS2.EQ.  YES)  .AND.  (AN  3  3.  EQ.  Y  ES  )  C  L  ASS=  4 
ANS2.  EQ.  YZS)  .AND.  ANS3.EC.  NO  ))  CLASS=5 
ANS2. EQ.YES)  .AND.  (ANS3. EQ.NO      )CLASS  =  6 


'RUCTIONS..  .  JOST    ENTER    THE    SYSTEM    CLASSIFICATION    NUMBER 


(6,  605) 

HEADI  (CLASS,  5) 

LASS.GT.O)  .AND. 


(CLASS.LT.7) )     GO    TO    40 


ITE  (6,0 0  6 
TO    3  0 

NUS 

T('        DOES    THE    MODULE    COOLING     AIR    BRANCH    OFF    THE    MAIN    INLET? 

•) 

T  (A  1 ) 

'        YOU    MOST    EN 
DOES    THE    MO 


T 
N)"') 


TEE  A  LETTER  IN  THE  BRACKETS.') 

DUL2  COOLING  AIR  JOIN  THE  MAIN  ENGINE  EXHAUST 


IS  THERE  A  COOLING  FAN  INSTALLED?') 
ENTER  THE  SYSTEM  CLASSIFICATION:  1,  2, 
YOU  MOST  ENTER  A  1,  2,  3,  4,  5,  OR  b') 


4,  5,  OR  6') 
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Q^ti^tim********  **  ***********  *******************************************  *Q 
C  1EN0    SUBROUTINE:    PRISTS    :iENU    AND    flllDS    OUT    WHICH    FITTING    TO    fJSE       C 

Q^********* ******************************************** ****************Q 

C  CALLED    BY     BOILD    AN3    EDIT    SaBHCJTINES.  C 

C  CHANGING     THE     NUMBER    OF    FITTI.-^GS    aEiUIEES  CHANGING    TEE    ^ENU.                  C 

C  JOST    REVISE    THE    FORilAT    STATE.1ENTS,     WATCH  THAT    IT    DOES    NOT                       C 

C  OVERFLOW     THE    SCREEN.  C 

Q*** ******************************************************************  *Q 

S'JERCOTINE    -lENU  (.1,  TEH  M,  TYPE,  FITID) 
INTEGER    FITID,  M,TSRM,  TYPE,  CRT  ,  I  YP -«P.T 
DATA    TYPWRT/0/ 
C  IF    USER    IS    ON     A    TYPEaEITEH    TERMINAL,    THE    r.ENU    IS    PRINTED    ONLY    ONCE 

IFilM.GI.  0).  AND.  (TERM  .EQ.IYP;?aT)  )      GO    TO    13 
HRiJE(6,o00) 
WRITE    6,601 
WRITE    6,o02'i 
WRITE  (6,  60  3 
WRITE    b, 604  1 
WRITE]6-  605'  FIIID 
CALL    EEADI  (TYPE,5) 
GO    TO    20 
WRITE  (6,606) 
CAIL    REiDI  (TY?E,5) 
CONTINUE 

CAIL     "^RTCM  S  ( '  CLESCRN     ') 

FORMAT    (  '        00    ;ib     H0R2    FITTINGS    THIS    BRANCH'     6X,        •*     lU    DIVERGI 

♦NG    WYE,     MAIN    SECTION        '/'       01     INTAKE    SHAFT,     RECT    SECTION,    SIDE       * 

♦  15  CONVERGENT  WYE,  BRANCH  SECTION  '/'  ORIFACES-  WITH  (OUT)  LO' 
♦UVEES  *  16  CONVERGENT  WYE,  MAIN  SECTION'/'  02  STRAIGHT  DJCT', 
+21X,'*    17     DIFFCSER.    CONICAL    ROUND    SECTION'/'        03     ELBOW,     SMOOTH    PAD 

♦  lUS    ROUND', 8X,'*    lS    DIxFUSSR,     PLANS,     IN-LINE'/'        04    ELBOW;     90    DEG: 

♦  3,4,5    PCS;     ROUND         *     19    DIFFUSER    PYRAMIDAL,     IN-LINE       •/'        05    ELBO 
_       ..t ._    ,,     -RANSITIONAL    (ROUND    T 

RECT    OR    RECT    TO    RO 


10 
20 
600 


601 

602 

603 

bOU 

605 

606 


>H,    MilEHED,     ROUND,    H&W/O    VANES*    20    DIFFUSER, 
+  0'/ 

+  '       06    ELBOW,     MITZEED,     RECTANGULAR  * 

+  0ND)  ') 

FGRMATC        07    ELEOW,    SMOOTH    RADIUS,     RECTANGULAR    *    21    CONTRACTION    RO 
+OND'/'       08    ELBOW,     SMOOTH    RADIOS,     WITH  *    22    CONTRACTION    RECT 

+ANGaLAR'/'  SPLITTERS,    aZCTANGULAR  *    23    OBSTRUCTION, 

♦SCREEN    IN     DOCT'/'       09     ELEOW,    MITZRED    WITH    VANES,     RECT  *    24    LOOVE 

♦  E    ENTRANCE') 

FORMAIC         10     ELBOW,    CONVERGING    OR    DIVERGING  *    25    FILTER'/ 

♦'  FLOW,     RECTANGULAR' , lux,' *    26    MULTI-BAFFLE    SILENCER'/ 

♦  •        11     ELBOWS,     90    DEG,     Z-SHAPED,     RECT  *    27    GT    MODULE     ') 
T('         12    ELBOWS,     90    DEG,    IN    DIFFERENT  *    28    WASTE    HEAT    BOI 


FORMA 
■t-LEii'/' 
♦'        13    DIVERGING    WYE,'  BRANCH    SECTION 

FORMAIC        /  •♦♦**i**««««t]SE    TWO    DIGI 


^****t \   ■ 

FORMATC 
FORMAT  (' 
RETURN 
END 


PLANES,     RECTANGULAR     ',1U,'*     29    EXIT    ABRUPT'/ 
-    _-. ^    ^Q    FITTING    NOT    LI 

NUMBER,    PRESS    ENTER 


STED' \ 
** ***k* 


»    YOU  ARE  WORKING  ON  FITTING  NUMBER  >>  ',161 
ENTER  THE  FITTING  TYPE  NUMBER  FROM  THE  MENU.') 
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Q-tm*  **********  *m 

C 

SELECT    SUB 

Q*************** 

c 

CALLED    3Y 

c 

THIS    SOB  HO 

c 

DATA    OF    A 

Q** *********** ** 

SUEF.O  JTINE 

HEAL    WORKE 

INTEGER    :i. 

DIMENSION 

c 

CHANGIN3    T 

c 

GC    TO    STAT 

c 

THAT    HANDL 

GO    TO     (1,2 

♦                   21- 

CALL    FIT01 

1 

CALX    LOAD 

GO    TO    40 

2 

CALL     FIT02 

CALL    LOAD 

GO    TO    40 

3 

CALL     FIT03 

CALL    LOAD 

GO    TO    40 

4 

CALL     Fir04 

CALL    LOAD 

GO    TO' 40 

5 

CALL    FIT05 

CALL    LOAD 

GO    TO    40 

D 

CALL    FIT06 

CALL    LOAD 

GO    TO    40 

7 

CALL    FIT07 

CALL    LOAD 

GO    TO    40 

3 

CALL     FIT08 

CALL    LOAD 

GO    TO    40 

9 

CALL    FIT09 

CALL    LOAD 

GO    TO    40 

10 

CALL    FinO 

CALL    LOAD 

GO    TO    40 

11 

CALL    FIT  11 

CALL    LOAD 

GO    TO    40 

12 

CALL    FIT  12 

CALL    LOAD 

GO    TO    40 

13 

CALL    FIT  13 

CALL    LOAD 

GO    TO    40 

14 

CALL    rITl4 

CALL    LOAD 

GO    TO    40 

15 

CALL    FIT  15 

CALL    LOAD 

GO    TO    40 

16 

CALL    FIT16 

CALL    LOAD 

GO    TO    40 

17 

CALL    FIT  17 

CALL    LOAD 

GO    TO    40 

18 

CALL    FIT  18 

CALL    LOAD 

**** ******* 

HOJTIME:  3H 
*«  «  ******** 

BUILC    AND    E 
UTINE    CALLS 
FITTItiG    TO 
** *  ******** 

SELECT     {M, 
,WKR 

WKI, W0RKI,3 
HOHKI  (200,2 
KE  NOMBER  0 
EMENT  AND  T 
£S    THE    NEW 

•SORI,GEOM 
,GECa,WKI 


********************************* ***********Q 

ANCHES  TO  FITTING  SELECTED  IN  3ENU  C 

****************** **************************Q 

DIT    SDBROOTINES  C 

LOAD    A    SUBROaTINE    THAT    TRANSFERS    THE  C 

THE    SYSTEM    STORAGE    ARRAYS    '-JORKI    AND    :70RKR  C 

***********************  m***  **************** *Q 

SORL,GEOM,TYPE,WORKI, WORKR) 


CRL,GE0.1,TY?i. 

)',i;0RKH  (20  0.4)  ,  WKI  (2)  ,  MKE  (3) 

F    FITTINGS    HEQUIRES    A    CHANGE    T 
HE    ADDITION    OF    A    CALL    TO    THE    S 


SOEL-GEOM 
,  G  ZCM , WKI 

SOEL,GEO» 
,GECM, WKI 

(SORL,G£OM 
lM,GECa,WKI 

OEL,GEOa 
GECa, WKI 

(SOHL.GEOa 
(a,GECft,;TKI 

(SORL^GSOM 
(M,GECa,  WKI 

(SOEL,GEOM 
(M,GECM,HKI 

(S0EL,GSCi1 

[M,GECH,  WKI 

(SOEL.GEC.I 
[«,GECa,  WKI 

(SOHL.GEOM 
[H,3EC«,  WKI 

(SOEL,G£OM 

((1,GECM,WKI 

(SOEL-GEOM 
[□  ,  G  EC  J,  WKI 

(SOEL-GEOM 

[M,GECM,WKI 

:OEL,GEOa 
GEC&,WKI 

OEI,GEOM 
GECM,WKI 


1^ 

5 


SO 


uSI,GE0i1 
J  ECU, WKI 

)BI,GE0M 

>  E  0  M  ,  W  KI 


FITTING. 
,9,10,11,  12,13,14,15,  16,  17,  18,19,20, 

^6,27,28;29)  ,TbE 

HKI,KKa) 

WKH,WORKI,WOriKS) 

WKI,  WKH) 
WKB,WORKI, WORKE) 

HKI,HKR) 

WKE,WORKI,WOEKR) 

MKI,WKR) 
WKa,WORKI, WORKE) 

WKI, WKH) 
WKB,WORKI, WORKS) 

WKI,  WKRj 
WK2,W0RKI,W0HKR) 

WKI, WKH) 

wKa,wcaKi,woaKR) 

WKI, WKR) 

HKR^WoaKI,WORKR) 

HKI,WKR) 

WKa,UOaKI,WOEKH) 

WKI, WKH) 

WKR, WORKI, WORKE) 

WKI,KKR) 

WKB, WORKI, WORKH) 

WKI,  WKR) 

WKR, KOEKI, WORKE) 

HKI, WKR) 

WKE, WORKI, WORKE) 

WKI,  WKH) 
HKfi,W02kl,W0EKH) 

WKI,HKR) 

WKH, HOEKI, WORKE) 

WKI, WKH) 

WKR, SOaki, WORKE) 

SKI, WKH) 

WKR,  WORKI, WORKE) 

WKI, WKH) 

WKR, WORKI ,WOHKH) 


-C    THE    FOLLOWING 
SOBEOOTINE 


li 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


40 


GO 

C\ 

CA 

GO 

CA 

CA 

GO 

CA 

CA 

GO 

CA 

CA 

GO 

CA 

CA 

GO 

CA 

CA 

GO 

CA 

CA 

GO 

CA 

CA 

30 

CA 

CA 

GO 

CA 

CA 

GO 

CA 

CA 

GO 

CA 

CA 

A 

CO 

S5 

EN 


TO    40 
LL     Fin  9 
LL    LOAD 

TO    40 
U.    FIT20 
LL    LOAD 

TO    40 
LL     FIT  21 
IL    LOAD 

TO    40 
IL    FIT22 
LL    LCA  D 

TO    40 
IL    FIT23 
XX.     LCA  D 

TO    40 
LL    FIT24 
IL    LOAD 

TO    40 
LL     FIT25 

L    LOAD 

TO    40 
LL    FIT26 
IL    LOAD 

TO    40 
LL    FIT  2 7 
IL    LOAD 

TO    40 
LL    rir28 
LL    LOAD 

TO    40 
IL     FIT29 
II    lOAD 

TO    40 
IL    FIT30 
LL    LOAD 
NEW    FITT 
NTINOE 
TUEN 
D 


(SOFI.GZOM 
M,GZCa,HKI 

(SOFI-GEOM 
M,GZC&,WKI 

(SORI-GEOM 
I1,GECM,WKI 

(SOFI.GECM 

M,GEO&, WKI 

(SOFI-GZOI 
M,GECM,WKI 

(SORI.GSOa 
n,GECfl,HKI 

(SO  PI,  GEO  a 
n,GECn,iiiKI 

(S0HI,GE0t1 
M,GEC«,»KI 

(SORI.GSOn 
a,GECM,aKI 


SG5I,GE0M 
,GECM,BKI 


,WKfi,«CHKI,WORKE) 

,WKI,  WKRj 
,WKR,aOukl,30RKH) 

,HKI,HKR) 

,iiKR,H0RKI,^-0RKH) 

,liKI,  WKR) 
,WKR,<iORkl,;?CRKR) 

/RKI, WKR) 

,WKR,W0aKI,.J0fiKR) 

,HKI,  WKR) 

,KKR,H0ukl,S0RKE) 

, SKI, WKR) 
,Ai{5,'AOdkl,40S.ti&) 

,HKI, WKR) 
,KKH,K0RKI,30RKR) 

,WKI, WKR) 
,WKH,WGSfCI,WORKH) 

,HKI, WKH) 

, WK2,WuRkl,W0RKR) 

,WKI,WKR) 

,l«KE,WORkl, WORKS) 

,WKI,  WKR) 
"■"•  WORk] 

E  ANOTHER  CALL  STATEMENT  HERE 


{SORI,GEOH 
M,GECa,«KI 

(SOEL,GEON 
(«  ,GEC?I,WKI  ,WKR,WORkI,WORKH) 
ING    WCULJ    REQUIR'^'    ^"'^^•"^t:    nr 
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c 

c***  * 

c 

c 

c 

c 

c 

c 


5 
7 

'10 

15 
17 
18 


20 
30 


600 


601 


ti^*^**  mm*  m^ *********** 

FIITING  01:  7SPT.  INT 
*ii**»*  *ii9  m*  **  ********* 
R-F.  HANDBOOK  CI  KYDR 
IHE  TABOLATED  VALJES 
IS  EXTRACTED  3Y  ANSWE 
THE  RErEEENCE  AREA  IS 
DYNAMIC  RESISTANCE,  T 
EEIOH  THE  ORIrACES. 
********************** 

SUBfiOOTINE  FIT01(SORL 
HEAL  WKH,A,AR£A 
INTEGER  N,a, ANS1,ANS2 
DIMENSION  WKI(2),WKR(. 
DATA  YES/' Y' /#N0/' N'/ 
HO'ii  MANY  ORIrACES  ??? 
WRITE  (6,  600) 
CALL    READI  (N  ,  5) 


**»*m******* **************************  ******* 
AKE    SHAFT,     SICE    ORIFACES,     WITH  (OUT)     LOUVERS 

**********************  **-H**  ****************  *Q 

AULIC    RESISTANCE,     I.E.     IDEL'CHIK-     PAGE     103       C 
ARE    LISTED    IN    AN    ARRAY    "A",     THE    PROPER    VALUEC 
RING    CERTAIN     QUESTIONS    ABOUT    CONFIGURATION.     C 
THE    SHAFT     AREA.        THIS     FITTING    IS     FOR  C 

HE    DUCT    CONNECTED    TO    IT    SHOULD    START    JUST         C 

C 

*******************************************  *Q 

,GEOM,WKI, HKH) 

,  YES,N0,GE0:1,S0fiL,  WKI,OFP,ADJ 
h)  ,A(2.D) 
,0?P/'0'/,ADJ/' AV 


15 


«)  )     GO    TO    2 

OPPOSITE    OR    ADJACENT    ??? 


((N.LI.  1). OR.  (N.G 
IF(N.NE.  2)     GO    TO    10 
IF    TWO,    OPPO 
WRITEib,  602) 
READ (5-o0  3,END=7,ERR= 
IF  (  (ANSI.  EQ.OPP)  .OR.  { 

REWIND     5 

WRITE (6,60a) 

GO    TO    5 
ARE    THERE    LOaVERS    INSTALLED    ??? 
WRITE  (6,60  1) 
CALL    READR  (AREA,5) 


7)     ANSI 

ANSI. EQ. ADJ) ) GO    TO     10 


WRITS  (6,605) 
READ (5.503,END=17,ERR 
IF  ((ANS2-  e6.  YES).Ofi.  ( 
REMIND     5 
WRITE  (6  .6  04) 
GO    TO     15 
({N.Ea.2 
(N.EQ.2 
ifl.SQ.  31 
iN.  EQ.  4) 
ANS2. 


IDEL'CHIK'S 
6 


=17)     ANS2 

ANS2.  EQ.NO)  )  GO    TO     1i 


.  AND.  (ANSI  .EQ.OP?)  ) 
. AND. (ANSI .EQ.ADJ 

N=2 

N=3 

N  =  4 

N  =  5 

YES)    GO    TO    20 

HANDBOOK 


INTO    TRANSFER    ARRAYS     WKI,WKH 


■t-MBER 
FORMATC 


=A  (a,N 

=  AREA 

YOO    HAVE    SE 
RECTANGULAR 
IT    .1AY    OR    ;1A 
FILTERS    ARE 
CF    OEIFACES.      (1^ 


ENTER    THi 


LECTED    A    VERTICAL    INTAKE    SHAFT    OF     •/ 

SECTION    WITH    SIDE    ORIFACES    AT    THE     TOP.  '/ 

Y    NOT    HAVE    LOUVERS    OVER    THE    ORIFACES.'/ 

A    SEPARATE    FITT ING . ' // ' ***FI EST,     ENTER    THE    NO 

2, 3, OR  4)^***') 

ROSS  SECTIONAL  AREA  OF  THE  VERTICAL  SHAFT.') 


60 


602 

603 
604 
605 


FOFMATC        SINCE   TH£P.E    kRl    TO    BE    IMO    ORIFACZS,     ARE    THE    0F.IFAC2S    OP? 
♦OSITZ    OH     ACJACENT     (0/A)?') 
FOEiMAT(Al) 
FORMAT  (•        YOD    MOST    ENTER    A    LETTER    i:i    THE    BRACKETS.') 


FORMAT 

eh:  TURN 
END 


LAST    (.OESTION,     ARE    LOJVERS    SOONTED    ON    THE    ORIFACES?        (Y/ 
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c 

c«*** 
c 
c 
c 

c 


fTT-'Tvi^     1-1.     c^rsT/'-jT-     nrT^T       ROUND    OR    ?.  EC  TA  ^IG  U  L  A  H  C 


tmmmmmmmmm****  *9**m*Q 


10 


20 


30 


40 


50 
100 


600 


601 
602 

603 
604 
o05 


606 


FITTING    02:    STEAIGHT    DUCT,     awu.,u    ^^    r.i.^  .n..^  ji-^ ; 

NO  REPEaENCZ,  CNLY  THE  DOCT  GEOMETRY  IS  INPUT  HERE.  LATER  ON  IN  C 
THE  COaPUTE  PART  OF  THE  EHOGRAil  A  CCSFFIC2NT  3ASSC  ON  ?*L/D  .VILL  C 
3E  DEVELOPED  TO  DETER:1IHE  THE  RESISTANCE  OF  THE  OOCT.  F  IS  THE  C 
FRICTION     FACTOR.       SEE     FITD?    FOR    THE    CORRELATION    USED.  C 

««**«*  **m  ^9  m*****mm  ****************  »-*******m»**m********-»t*****mmm*c 
SOSEOUTINE    FIT02     (SOR L, GEOa , WKI , W KR) 
REAL    A.B,L,D,WKE 

INTEGER    SORL,GECM,SKI, ANSI , CIE, EEC, 3  HOST 
DIMENSION     WKI  (2),  WKR  (4) 
DATA    CIR/'  CV,  REC/'R'  /,SHOHr/0/ 
IS    DUCT    CIRCOLaR    OR    BECTANGaLAH    ??? 


WRITE  (6,600) 

READ  (5.001, END  =  6,ERR=6)     AN 

IF  (  (ANSI  .  EG.  CIE)  .OR.  (ANSI. 


INSI 

. ,_. _Ev.HEC))GO    TO    7 

Jewind    5 

WRITE  (6  ,608) 

GO    TO    5 
IF  (ANSI.  EQ. CIR)     GO    TO     30 
IF  (SCRL.  EO.SHOEI)     GO     TO     10 
WRITE  (6,602) 
CALL    HEADR(a,5) 
WRITE  (6,  601) 
CALL    READR  (B  ,  5  ) 


WRITE  ]6,  o0  4)  ■ 
READR  (L, 


5) 


•CAI 

GO    TO    20 

WRITE  (6,  605) 

CALL    READR  (A,  5 

CALL    READR    B, 5 

CALL    5EADE  (L ,  5 

CONTINUE 

AEEA=A*3 

SINCE    THE    DOCT    IS    RECTANGULAR. 

IS     REQUIRED.        THIS    IS     FROJ!    THE    Ab 

D=  1.  3*((A*B)  **0.62  5)  /  (A+B)  **0.250 

R=I/D 

GO    TO    10  0 


THE    EQUIVALENT    CIRCOLAR    DIAMETER 
ASHRAE    HANDBOOK,     CHAPTER    33,     DUC: 


IF  (SOEL.  ZC.O)     GO    TO    40 
WRITEi6,  606) 
'-■IL    READR  (fa,  5) 


WRITE  (6,  604) 
CALL    cEADE  (L  ,  5  ) 

n^     Tn     en 


WHITE  (6,607) 
CALL    nEADR  (D  ,  5) 
CALL     READR  (L  ,  5  ). 
^=3.la*   D**2 


AREA= 


1/4.0) 


.■OHJ^AxC 
♦TANGULAR. 
♦  R 


SELECTED    STRAIGHT    DUCT.        IT    MAY    BE    ECOND    OH    PEC 
IS    THE    DUCT    CIECUIAE    OR    RECTANGULA 


=  2 

=ASEA 
=0 
\=L 
=AREA 

YOO     HAV: 

I /t  ♦«*«Fj:gsT    QUESTION, 
(C/F.)      ?') 
FOSMAT(AI) 
FOEMAT('        THE    DUCT    IS     RECTANGULAR,    ENTER    FIRST    CROSS-SECTIONAL    DIM 

♦  ENSIGN.         "■ 

FORMAT 
FOEMAT 
FORMAT 

♦  •       FO  R^ 

+  • 

FOEMATC 


SECOND 

LENGTH 
THE     EDCT    IS    CIRCOLAR, 


ENTER 
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607       FORMAIf'        HNTEE    THE    DI.1ENSI0HS     (FEET) 
♦  •  rORMAT:        EIAMETER 


608 


FORMATC 

EET'JEN 
END 


YOU 


LENGTH 
nOST    ENTER 


.ETTSR    IN 


0?    THE    CIRC'JLAR    DUC: 
SAMPLE:        5.65    '/ 
20'  ) 
THE    BRACKETS. ' ) 
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C  FI 

(;■>♦♦***« 

C  EE 

C  CU 

C  SH 

C  TC 

su 

R£ 
lU 
CI 

ws 

CA 
WR 
CA 
HR 
CA 
AR 
KI 
CP 
C= 
WK 
HK 
UK 
WK 
HK 
KK 
FO 
+  • 

♦  ? 
FO 

♦  • 
FO 

♦  EE 
BE 
EN 


600 


601 
602 


TTING 

F.  ASH 
RVE  FI 
CRT  FI 
THE  C 
*«*««« 

EEOQTI 

AL    R.l) 

TEGER 

.1ENSI0 

ITE  (6, 

IL     SEA 

ITE  (6, 

IL    r.EA 

ITE  (6, 

IL    EEA 

EA  =  G.7 

HETA=0 

RISE=0 

KTHETA 

I  (  1) =G 

1(2 

R 

H 

E 

P 

a 


3 
'1)=A 

;2)=o 


03:    EL 
RAE    HA 

TTING^ 

EiNTEH 

NE    FIT 
-THZTA 
GEOfl.  S 
N     WKI  ( 
6  0  0) 
DR  fD,5 
60  t) 
D  R  (E  ,  5 
6  0  2) 
DR  (THE 

a5a»D* 

-0306* 
.  02946 

*C?HIM 

Eoa 

R£& 
.0 


EOW,  SM 
*»*«*«« 
NDBOOK, 
EE  TABU 
FRICTI 
CF    THIS 

03rSCRL 
, KTHETA 
CRL,KKI 
2},WKE  ( 

) 

) 

T5,5) 

THETA** 
♦EXP  (2. 
E 


OOIH 

PAGE 
LATED 
ON  LO 

FIIT 
*mm  «* 

,  GECil 
,C,  AR 


RADIUS,     RODND    CEO S3-SECTICN  C 

m  *mm*  ************  *m***  mm*  ***  ****t***mmM*Q 
33,33,     TABLE    3-3,     FITTING    3-1  C 

DATA  c 

SSES    aOT    INCLUDED,     CONNECTING    DUCTS  C 

"NG.  c 

**********************  mm  mm* ****mmm**m*Q 


, WKI, WKH) 

£:A,C?EiaE,  WKR 


0.7825 

562  7*  (1.57138-(R/D))  )  ♦O. 1 1746 


EEA 

YOO     HAVE    5E 
ELBdH.V        **FIEST 

)  **'l 

ENTER    THE    S 
ENTERLINE    OF 

LAST    QUESTION,    ENTER 


(feet; 

RMATC 

THE   C 
BMATC 

TURN 

D 


LECTED    A    SMOOTH    RADIUS     ROUND    CROSS-SECTION'/ 
QUESTION,     WHAT    IS    THE    CROSS-SECTION    DIAMETER 


ADIUS    0?    THE    TURN    OF    IHE 
THE    DUCT.M 


LBCtt    MEASURED    TO'/ 
H£    ANGLE    OF     IHE    ELBOW    TURN.         (DEGE 


64 


Q**  *  9  m*»  ******  *************  **********************  ***********  *****m*****Q 
C  FITTING    OU:    ELSCW,    SSG.IENTEJ    aOUSD    -ECiJ3-S  ECTICN ,    90    DEGREE  C 

Q** ***********  * m** ***********************************************  ******c 
C  KEr.       ASHEAE    HANDBOOK-    PAGE    33.33,    TABLE    3-3,     FITTI.^G    3-2  C 

C  CURVE    FIT    TD    THE    TABULATED    DATA    FOR    EACH    NUMBEF.    OF    SEGMENTS.  C 

C  THIS    IS    A    SHORT    FITTING,     FRICTION    LOSSES    NOT    INCLUDED,     aEASURE         C 

C  CONNECTING    DUCTS    TO    THE    CZNTES    OF    THIS    FITTING.  C 

Q^** ***********************  ******************  **** *******************9**Q 

SJEHOUTINE    FIT0  4(SCRL,GEOa,4KI, WKE) 

REAL    D,R,SKH 

INTEGER    SORL,GECK,Wi<I,  N,  a 

DIM] 


[SGER    SORL.GECK-WKI,  N 

1ENSI0N     WKI  (2)  ,WKR  (U) 
™.>ITE  (6.600) 
CALL    F.eAdR  (N,5) 

IF  (  (N.LT.3)  .OR.  (N.GT.  5)  )     GO    TO    5 
HRITE  (6, 


WRITE  (6,600) 

LL    F.eAd 

CALL     nEADE  (0,5) 


:^6, 60  1 


iRITE  (6,  602)^ 

CALL    HEADB  (R,5) 

AREA=0.7854*D**2 

M=N-2 

GO    TO     (10,  20,3  0)  .r. 
10         C  =  4.  4  022  *E:CP  (3.  9394*  (0.0  028  2-H/D)  )  +0.32  829 

GO    TO    40 
20         C= 1.8423* EX? (2 -486  1* ( -J. 02393-R/D) ) +0.22798 

GO    TO    40 
30  C=1. 0  456 *EXP (1-74313*  (0 . 01 2 1 9-H/D)  )  + 0-  1577  5 


40  CONTINUE 


600       FORMA 

♦REZ    SLBDH 


HAVE    SELECTED    A    SSGtlENTED    ROUND    CROSS-SECTION    90    DEG 

.    .  **FIRST    question,    how    aANY    SEGMENTS,     INCLUDE    ENTRY 

+  ANC    EXIT?  (3, 4, OR    5)     **') 

601  FCRSATC        ENTER    THE    CROSS-SECTIONAL    DIAMETER.') 

602  FORMAT    •        LAST    COESTION,     HHAI    IS    THE    RADIUS    OF    THE    TOEM    OF    THE    ELB 
+0W-'/'       MEASUEEC    TO    THE    C2NTEHLINE    OF    THE    DUCT?') 

RETURN 


END 
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c*** 

c 

c*** 

c 

c 

c 

c 


10 
12 

20 


rllTI 

E£F. 
C'JFVE 
THIS 
TG  TH 

5  U  E  E  0 

SEAL 

INTEG 

CI.1EN 

DAIA 

WRITE 

CALL 

URITE 

CALL 

K=1.0 

WRITE 

HEAD 

IF 


60  1 
602 

603 
604 


;JG    0  5 
«**  «  * 

ASHE  A 

FIT 
IS    A 
£    CSN 
»««»« 

UTISE 
D-THE 
EH  30 
SION 
YES/' 
(6,  60 
'ziDR 
(6,6  0 


*«  «*«**««*« 


«•  •  • 

E    HA 
TO    D 
3HCa 
TEH 
»«  «  « 


NCBOGK, 
ATA. 

T   FITTI 
CF    THIS 


FIT05     (SOfi 
TA,C 
RL ,  G 

WK1( . 

YV,  NC/'  NV 


:fri.ie,  A 

rC  .1,  U  i\I 

2),!jKR( 


TEEE3    CISCJLAR    CSC SS- 3 ECTIOH  c 

PAGE    33.33,    TABLE    5-3,     FITTING    3-3  c 

C 

NG.       CONNECTING    DOCTS     3H0JL3    BE    MEASURED  C 

FITTING.  C 

L.GEOM,  liKl ,  /iKH) 
RZA,3Kh,  i( 
-ANS,ir£o,NO 


I?' 


REiDR  (T 


5) 


i^^. 


i6,6 

(5,o0 


WR 
GO 
CONTI 
IF  (A 
CPSIM 
AHFA  = 
WKI(1 
WKI 
HK5  (1 
HKR  (2 
HKE 

;kp 


600       FOEMA 


FOEMA 
FORMA 

FOEaA 
FORilA 

FETOH 
END 


y-'t  u  w 
ANS.  E 

SIND 
ITE     ( 

TO     1 
NUE 
NS.  EQ 
£=(3. 
0.785 

=GEO 

=5 

=  AHE 
1=0 
)=C?R 
i=ARE 

^r 

•FIRS 

T(' 

^<; 


(THETA,5) 

021 
3,EN£=12.SR 

g.  YES)  .Oft.  ( 

3 

6,60a) 

0 


R=12)     ANS 

ans.z:q...'C)  )    GO 


:o  20 


.YES)     S=0,27 

TiiE-'i).*  (THE  lA**  1.78  52)  *K 

4«D*»2 


las 

A 

YOU  HAVE  3E 
T  0UZSTI3N, 
■.4HAT  IS  THE 
LAST  COESTI 
INSTAILZD    T 


lITSaSD    ROUND     ELBOW.'/ 
•HE    CROSS-SECTIC;!AL    DI 


LZC:__      _     .    ^ 

WHAT    IS    THE    CROSS -SEC  TIC  liAL    D^AMETEH?') 
ANGLE    OF    THE    ELBOW    T'JEN?') 
ON,     APE    0?TI.ia:i    NOaEER     OF    CONCENTRIC    VANES'/ 
0    HEDOCZ    HESISTANCE    AND     TURBOLANCE     (Y/N)?') 


YOU    aUST    ENTEH    A    LETTER    IN    THE    BRACKETS.') 
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C  FI 

(;*«««♦*« 

C  RE 

C  TH 

c  cu 

c  cc 

(;♦««*«♦» 
SJ 
RZ 
IN 
DI 
WR 
CA 
WR 
CA 
UR 
CA 
IF 
SR 
GO 
RA 
DH 
AR 
CI 
A  = 
PK 
C? 

HK 
MK 
HK 
SK 
HK 
FO 

♦  < 

FO 
+  ' 

FO 

♦  90 

FO 
FE 
EN 


10 


23 


600 

50  1 
602 
603 


TO 


TING    J6:        SLEC/I    SITERED 

**«*««  ««««««*:«»*«*«  «»**« 

f.     ASHHAE    HANDBOOK,     PAGE 
E    HANDBOOK    OF    HYDRA  OLIO 
EVE    FITS    TO    TEE    DATA.       T 
NNECTED     TO    IT    TO    THE    CEN 

EF.OaTINE    FIT06  rSORL.GECa 

AL    H,;J,THETA,C1,A,?  HI,C? 

TEGE&    S0RL,G£Ci1,'.<Kl 

MENSION    BKl  ^2)  ,WKR(a) 

ITE  (6,600) 

IL    bSADR(H,5) 

ITE  (6,  60  1 

LL     rEADR(W,5) 

ITE  (6,  602) 

II     nEADR  (THETA.S) 

(TKEIA.LE.  90.  J)     30 
ITE  (6,  603) 

TO    l5 
C  =  THETA*3.  Itt  16/130. 
=  2-0*(H*W)/  (H*«) 
EA=H«W 

=0.  23397*SXP  (0.3889 
1.2  +  1.  0381*  (    1.5708 
1  =  0.95*  (  (SIN  JEaD/2. 
EIME=C1*  A*PHI 
1)=GE01 

■=6 

=AREA 

=  0H 

=C  PRISE 

=  AaEA 
(•        TOO    HAVE 

V'       *»FIESI 

{THE  di:iension 

FHAT('  MHAT    IS    THE 

(THE  DIMENSION    I 

RMAT(«  LAST    >iOESTI 

DEGcEES) P'l 

EilATC  ELBOW 
TURN 
D 


RECTA 

33.3 

RESIS 
HIS 
TER    0 

jWKI, 
nlME, 


NGOLAR    CROSS-SECTION  C 

3,     TABLE    B-3-     FITTING  3-0    AND               C 

TANC2,    lEDL'CHIK.  C 
S    A    SHORT    FITTING,    .1EASUEE    DUCT         C 

F    THIS    FITTING.  C 

WKE) 

HAD, AEEA,DH, WKR 


0 


6*(1.873  39-(H/W)) ) +0.6  7819 

-SAD)/1.  0472)  **1.8233 

0))  ♦•2)  +2.05*  (  (SIN  (E AD/2.0)  )  **4.  0) 


SELECTED    A    MITERED,     RECTANGULAR    CEO SS-SECT ION , 
QUESTION,     WHAT    13    THE    HEIGHT    OF    THE    ELBOW?'/ 
""     PARALLEL    TO    THE    TORN     AXIS)') 

RIDTH    OF    THE    ELBOW   CROSS-SECTION?'/ 
N    THE    PLANE    OF    THE    TORN)  ') 
ON,    WHAT    IS    THE    ANGLE    OF    THE    ELBOS    TURN     (0    - 

TURN    ANGLE    SOST    NOT    3E    GREATER    THAN    90     DEGREES.') 
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c**** 
c 

c 
c 

c 
c 


10 


20 


600 

601 
602 
603 
60U 
605 


«*«  •^i*  *«« 
FITTING 

REF.  ASH 
OSES  TWO 
SJSROUTI 
SHOE T    FI 

SUEfiO'JTI 
REAL  WKE 
INTEGER 
DIME^NSIO 
TAELE  IS 
DATA    T/ 


4i  #4141  «  « 

07  :       E 
«*  «*  «« 

RAE    HA 
DiaEN 
NE-     A 
TTING, 
m*  *•** 

NE    PIT 
,  H  ,H  ,  R 

Ski.So 

N     KKI  ( 

LISTE 
9.00,5 


WRITE  (6, 
WRITE  6, 
CAIl  EZA 
WRITE  (6, 
CALL  KEA 
WRITE  (6, 
CAIL  ^ZA 
WRITE  (6, 
CALL  EEA 
1)  =H/W 
"  R/W 
TAB 
IF  (XOUT. 
WRITE  (6, 
GO  TO  10 
KTHETA=0 
DH=2. J*( 
C?RIME=C 
AEEA=H*M 


THE  TA 
1.  30 
0.57 
0.27 
0.2  2 
0.  20 

600 

60 

DR  (H,5 


0) 

irk,: 


*4>*»««4i 

lEOH    SM 

NDBOCK, 
SIONAL 
TABLE    L 
MEASUR 
«**«*«« 

07  (SOR 
.IHETA, 
El,GEOa 
2)  ,WKR  ( 
E  AS  FO 
.00,       0 

r 

0 
ELE  INC 
,1.30,1 

,0.52,0 
,0.25,0 
,0.20,0 
,0.  18,0 


OOTH 
*»#*« 

PAGE 
TABLE 
CCKU? 
E  CON 
***** 

L,GSO 
T-X.K 
,XOUT 

lIows 

.25,0 

HE  r 

.50,0 
SEASI 
.20,1 
.48,0 
.23,0 
.  19,0 
.16,0 


***** 

RADIO 
***** 

33.3 
TO  P 
AND 

NECTI 
***** 

M,HKI 
THETA 

61)  ,X 

.50,0 

s 

.75,1 

NG  X 

.20,1 

.44,0 

.21,0 

.  17,0 

.15,0 


****************************  *****^f2 
5    RECTANGULAR  WITHOUT  VANES        C 

************************  **********Q 

1,  IkoLZ    3-3,  FITTING  3-5  C 

SOVIDE  COEFFICIENT.   CALL  TAELE    C 

INTERPOLATION  SUBROUTINE.  C 

NG  DUCTS  ro  THE  CENTER  OF  FITTING  C 

****************************  ******Q 

,SKR) 

,C,C?EiaE,DH,AREA 

(2) 

BEE    OF    X'S,     NUMBER    OF    Y'S,    THE    X' S 

.75,1. 00, 1.50, 2. 00, 3. 00, 4. 00, 5-00, 


.00,1.50-2.00, 
TO  THE  RIGHT,  INCREASING 
. 10,1 .10,0. 98,0.92,0.39, 
.40,0.39,0. 39,0.40,0.42, 
-  19,0.  18,0.  18,0.19,0.20, 
. 15,0.  14,0. 14,0.15,0.16, 
.14,0.  13,0.  13,0.  14,0.14/ 


I  DOWN 


CALL  ' 


6  0  2) 

DH  (W,5) 

60i) 

DE  (E,5) 

604) 

DE  (THETA, 5) 


WKIi 

WKI 

WKE 

WKE 

WKEi 

HKE 


LE  {T,X,XO0T.C) 
GT.O)  GC  10  20 
605) 

.  0306*THETA**0.7825 
H*W)  /  (H-t-W) 

♦KTHETA 

EOM 


FORMAT  (' 
♦OUT  VANE 

FOEMAT('        * 
+  •  (THE    C 

FOPMA-i*        a 
+  '  DI 

FORMAT  (• 
♦/'  OF 

FOEKATC 
♦  EZS)  ?') 

FORMAT  (• 

RETURN 

END 


A    SaOOTH    EADIUS     RECTANGDLAfi    ELBOW    WITH 


R2A 

H 

PRIME 

/H 

YOO    HAVE   SELECTED 

S.  •) 

**FIRST    QUESTION,    WHAT    IS    THE    HEIGHT    OF    THE    ELBOW?'/ 
CROSS-SECTIONAL    DIMENSION    PARALLEL    TO    THE    TURN    AXISV) 
WHAT    IS    THE     WIDTH    OF    THE    ELBOW     (THE    CROSS -SECTION  ALV 

MENSIGN    IN    THE    PLANE    OF    IHE    TURN)  7' ) 

WHAT    IS    THE    RADIOS    OF    THE    ELBOW,     MEASURED    TO    THE    CENTER* 
THE    SLECW    CROSS-SECTION?') 
LAST    QUESTION,     WHAT    IS    THE    ANGLE    OF    THE    TURN      (0-90    D2GR 

CROSS-SECTION    EXTEEMELY    NAEHOW,    EE-ENTEE    BETTER    DATA.') 
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Q-tcj^****m*m»*  **************  ************  ************ 

C  FITTING    08:       EI20W    SMOOTH    RADIUS    HECTAHGaLA 

Q***  *********** *m* ***************************  **** 

C  HEF.     ASHHAE    HANLBOOS,     PAGE    32.32    6    33-33,     T 

C  USES    TASLE    INI 'FPO  LAI  IO;i    SCHEME 

C  THIS    IS    A     SHORT    FITTING,     MEASOaS    CONNECTING 

C  OF    THIS    FITTING   TO    INCLUDE    FEICTION. 

Q**** ****************************************  **** 

SU5R0UTINE    FIT08     (SOB L, GEOM, WKI , i KH) 
REAL    WKR,H,H,a,IHETA. KIH ETA , ARE A , X ,C ,C?EIME 
INTEGER    SKI- N, XCUT.SORL.GSCH 

DIMENSION    WKI  (2)  ,,<KH  {  4)  ,  X  (2)  ,T1  (100)  ,T2  (10  0 
C  ONE    SPLITTER 

DATA    T1/3. 00, 10.00.    0.25,0,50,1.00,1.50,2.0 
♦  0.55,0.60,0.65,0.70,3.75,0.80 


C 

10 


*********** ***********Q 

R    rflTH    SPLITTERS  C 

**********************Q 

A3LE    3-3,    FITTING    3-7    C 

C 
DOCT    TO    THE    CENTER         C 

C 

**********************(2 

,I1,T2,T3 

)  ,T3  (100) ,X0UT(2) 


0.52 
0.36 
0-28 
0.22 
0.  18 
0.15 
0.13 
0.11 
0.10 
0.09 


I-JC    SPLITTERS 
DATA    T2/8.  00,  10.00 

>■  0.55 

♦  0.26 

♦  0.  17 

♦  0.  12 

♦  0.09 

♦  0.G3 

♦  0.06 

♦  0.05 

♦  0.05 

♦  o.ou 

♦  0.03 
THREE    SPLITTERS 
DATA    13/8.00,10.0 

♦  0.55 
+  0.11 

♦  0.C7 

♦  0.05 

♦  0.03 

♦  0.03 

♦  0.03 

♦  0.02 

♦  0.02 

♦  0.01 

♦  0.01 
WHITE  (6,600) 

HOW    MANY     SPLITTERS    ??? 
WRITE  (6,60  1) 
CALL    HEAD  I  (N,  5) 
IFjjN.LI.  11^.  OR.  (N.GT.  3)  ) 


0.27 
0.2  1 
0.  16 
0.  13 
0.  1  1 
0,0  9 
0.08 
0.0  7 
0.06 


0. 

60 
20 
1  3 
0  9 
07 
0.05 
0.0^ 
O.OU 

:).03 

0.03 
0.02 

-  0. 
0.60 
0.  10 
0.05 
0.  04 
0.03 
0.02 
0.02 
0-0  2 
0,0  1 
0.0  1 
0,0  1 


0.43,0,49 
0,25,0.23 
0. 18,0.  1  9 
0.14,0.14 
0.11,0.11 
0.09,0.09 
0.08,0.0  7 
0.07,0.06 
0.06,0.05 
0.05,0.05 


5,0.50,1  . 
0-65,0- 70 


22,0-15 
0-11,0-12 
0.08,0.08 
0.06,0.05 
0-04,0-40 
0.03,0.03 
0.03,0.03 
0.03, 0.02 
0.03,0.02 
0.02,0.02 


25,0. 50,  1. 
0.65,0.70 
0.  12 


0.06 
0.04 
0.03 
0.02 
0.02 
0.01 
0.01 
0.01 
0.01 


0.  13 
0.06 
0.04 
0.03 
0.02 
0.02 


:o: 

1  J  , 
55 

,0. 

20, 

,0. 

20, 

,0. 

15, 

'o. 

11, 

,0. 

0  9, 

,0, 

07; 

,0. 

06, 

0, 

05, 

,J. 

04, 

00, 

1  .5 

,0. 

75, 

0. 

Zi. 

,0, 

13, 

,0. 

08, 

,0 

06, 

,0. 

04 

,0. 

03, 

,0. 

03, 

,0. 

02,' 

'o. 

02; 

,0. 

02, 

00 

r  1  .5 

,0 

75, 

0 

1**; 

,0 

.Ob, 

,J 

.04; 

.0 

.03, 

,0 

.02, 

,0 

.02 

.0 

.01, 

.0 

.or. 

,^ 

.ui; 

,0 

.01 

0  .00 
0.35 
0.2 


WEllE  (6,602) 
CALL    EEADR(H,5) 
WRITE  (6,603)_ 

EEiDR  (H,5) 


GO    10    10 


CALL 

WRITE  (6,60  4) 

eeAdr  JR, 

WRITE  (6,605)^ 


CALL 


5) 


CALL    EEiDR  (THETA,?) 
KIRETA=0,  0  306*TEiTA**0.7825 

M1=H/H 

J2\  =  E/W 

REA=H*W 


X  (  1)  =  H/H 

1    ' 

A 

GO    TO     (20,30,40)  ,  N 


0,2, 
0,30 
0.32 
0.15 
0.09 


0,3. 
0.35 
0.75 
0.39 
0.25 
0.  17 
0.  13 
0.  10 
0.08 
0.06 
0.05 
0.04 


00, 

'o' 

,0. 

'o- 
'o' 

,0. 


4.00, 5.00, 
90,0. 95, 1.00, 

42, 
26, 
18, 
14, 
10, 
08, 
07, 
05, 
0  5/ 


0,3.00,4.00,5.00, 

0.3  5,0.9  0,0:95,1 .00, 

0.37,0.4  1, 

0.  16,0,17, 

0.  10,0.10, 

0.06,0.06, 

0.05,0.05, 

0.03,0.03, 

0.03,0.03, 

0.02,0.02, 

0.02,0.02; 

0.01,0.01/ 


0,2.0 
0,33, 
16, 

V' 

04, 
03, 
02, 
01, 
01, 
0.01, 
0.01, 
J  .  0  1  , 


0,3. 
0.3  5 
0.  18 
0.07 
0.04 
0.03 
0.02 
0.01 
0.01 
0.01 
0.01 
0.01 


0,4.00, 5.00, 

0.50,0. 95, 1.03, 

0,19, 

0.08, 

0.04, 

0.03, 

0.02, 

0.01, 

0.01, 

3,01, 

0,01, 

0.01/ 
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20 

30 

aO 
50 

60 


600 
601 
602 
60  3 
604 
o05 
606 


CALL  TAB 
30  TO  50 
CALL  TAB 
GO  TO  50 
CALL  TAB 
CONTINUE 
IF  (  (XOUT 
HRIxS  (6- 
GO  TO  10 
C  =  C?EI.«1E 


1)=G 

2)=3 
1    =A 

'2^=0 


:A 


WKI 
WKI 
WKE 
WKE 
WKR 
WKE 
FOEi 
+  5ELI 
FORKATP 

♦  ,2,0E    3) 
FOEMATf' 

♦  •  (TH 
FOEMAI  (• 

+  •  DI 

FOEMATC 

V'  OF 

FOEMAT  (' 

+  EES)  ?•) 
FOEMATC 
EETDRN 
END 


LE     (T1 

LE     (T2 

LE    (T3 

M)  .GT 
606) 

*KTHET 
EOM 

REA 
.0 

REA 
TOO 

**FIRsf''a'JESTI0N7    h6h''SaNY    SP  LITTE  Is"aEe'  IS    THE    EL30H     (1 

«HAT 

E    CHOS: 

WHAT 
SEMSIO- 

WHAT 

THE   e: 
las: 


,X,XO0T,CPHII1E) 
,X,XOUT,C?aiME) 
,X,XOUT,CPRIME) 
-0)  .OR.   (XC0T(2)  .GT.O)  )     GO    TO     60 

A 


HAVE    SELECTED    A    SMOOTH    RADI'JS     RECTANGULAR    ELBOW    WITH 
IT    MAY    HAVE     1,     2,     OK    3    SPLITTERS. ') 

:t     ^'T  it  on*-^  nM         una      »i  r  v  v     CDTT'^'^rac      \  ur 


IS    THE     HEIGHT    OF    THE    ELBOW?'/ 
;S-SECTI0NA1    DIMENSION    PARALLEL    TO    THE    TURN    AXIS!') 
'    IS    THE    WIDTH    OF    THE    ELBOW     (THE    CROSS-SECTIONAL^/ 
N    IN    THE    PLANE    OF    THE    TORN)?') 

IS    THE    RADIUS    OF    THE    SLSOW,     MEASURED    TO    THE    CENTER' 
:LE0W    CROSS-SECTION?') 
■    QUESTION,     WHAT    IS    THE    ANGLE    OF    THE    TURN      (0-90    DEGR 

CROSS-SECTION    EXTREMELY    NARROW,     RE-ENTER    BETTER    DATA.') 
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C  FI 

(;*««  **** 

C  fi£ 

C  GI 

C  SH 

C  TO 

5  a 

RE 
IN 
DI 
WR 
CA 
GO 
C  = 
GO 
C  = 
GO 
C  = 

cc 

UR 
CA 
HK 

HK 
KK 
HK 
WK 
WK 
?0 

FO 

+  L3 

HE 

EN 


10 

20 

30 
40 


600 


601 


CRT 

TH 

**  * 

BEO 

AL 

:iEG 

.^EN 

ITE 

LL 

TO 
0.  1 

TO 
0.  1 

TO 
0.  1 
NTI 
ITE 
LL 

I  c 

12 
H  1 
R    2 


*** 

NO 

«*« 

ASH 

CO 

Jl 

«*• 
UTI 
WKR 

ER 
SIO 

^h 

atLk 

2^' 

UO 
5 
UO 

a 

NOE 


*  «  ««  « 
09: 

RAE  H 
EFFIC 
TTING 
ENTER 
*«  ««  « 

NE  FI 
,C-AR 
SOftL, 
N  «"K1 
6  0  0) 
DI  (N, 
0,20, 


*  «»4>  * 

EI30H 
«  **«  * 

ANCflO 

lENT 
,     DYN 
OF    T 

TQ9    ( 
EA 

G£C«, 
(2),H 

3^),N 


^^t  *  ***^m*  ***********  ****'*********  *m*****m  *m9***Q 
.■IIISHED    dECTANGOLAR    WITH    VANES  C 

****************************************** tm***Q 
OK,     PAGE    33.32,     TA3LE    3-3.     FITTING    3-3  C 

AS    A    FONCTION    OF    NJ-IEER    OF    VANES  C 

AMIC    LOSSES    ONLY.       MEASJRE    CONNECTING    DUCTS  C 

HIS     FITTING    TO    INCLODE    FRICTION.  C 

***  *********m ********************************* *Q 

SOa  L,GEO«,aKI,;'fKE) 

MKI  -  N 
KB  (4) 


(6,601) 
READR  (" 
)=GEOM 


OR  (AREA, 5) 


=9 

=  AREA 
=0.0 


R  (U)  =AREA 
EJiAtC        Y 


!A 

SI 

** 

RMA 

TOR 
C 


T('        YOU     HAVE    SELECTED    A    3ITERED    RECTANGULAR    EL30W    WITH'/ 
NGLE    THICKNESS    VANES.       THERE    :1AY    3E    1,     2,     OR    3    VANES.'/ 


FIRST    QUESTION,     HOW    J 
T('        UST    QUESTION,    V 


MANY    VANES     (1,2.3S     3f?' 
WHAT    IS    THE    CSOSS-SECTI 


TIONAL    AREA   OF    THE    E 
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c*** ******* 

C      FITTI 
C***  *«•**•* 

C  REF, 

C  TAcLE 

C  5HCRT 

C  THE  C 

Q*** *  *«*««« 

SJEEO 
REAL 
INTEG 
01  MEN 
DATA 

* 
WRITE 


10 


20 


600 


601 
602 

603 

604 


***  ** 

NG     10 

««*  *« 

ASHRA 

INTE 

PITT 

ENTEB 

**«  «« 

UTINZ 
VKR,C 
EH    »K 
SION 
T/6  .  0 


WRITE 

CALL 

HRIIS 

CALL 

WRITE 

CALL 

X 

X 

CA 

WRITE 
GO  TO 
DH  =  2. 
AEEA  = 
WKI(1 
WKI  2 


111.1.  :\ 

ALL  T 


WKR 

HKE 
HKR 
WKE 
FOE 


♦  '   PA 

FOFMA 
♦HT7') 
FORMA 
+THE  r 
FORMA 
FOEMA 
FETOR 
ENE 


6,60 

6,60 

EiDR 

(6,  60 

SEADR 
(6,  60 

reIdr 

W1/W0 
HO/WO 
TABLE 
OJT  (  1 
(6-60 

lO 
0*(H0 
H0*tI0 

=GEO 

=  10 

=AaE 
-on 

=CPH 
=W1* 

THER 

HALLE 

TC 

T(' 
LANS 

11= 


**  «*****«** 

:    ELEOM    HEC 
**  «  ««*«**«« 

E    HANDBOOK, 
RPOLATION 
ING,     DYNAMI 
OF    THIS    FI 
«*  «*«««*««* 

FIT10 
^AREA, 
X,  SO  R 1/  abuii 
WKI  (2I,HKfi( 
-         CD,       0. 

0. 

1. 

1. 

1. 

1. 


0,4, 


^H0,5) 
jfe0,5) 
(W1,5) 


«** 

TAU 
««* 

PA 

C    L 

TTI 
««» 

CPR 

ll: 

25, 

80, 
70 

50, 
50, 


«****«**««*****  *«***«**«**«***«***««*««**(3 
GOLAH  PITH  C0:J7ERGING  CR  DIVERGING  FLOW  C 
«***«««  »«****««*«««*«»««***********«*«««*(2 
GE    33.32,     TABLE    B- 3 ,     FITTING    3-10  C 

C 
03SES    ONLY.     MEASURE    CONNECTING     OOCT    TC  C 

NG    TO    INCLJDE    FRICTION.  C 

«»««««*  ««««««*««««««*«*««**«****«*«*««***(^ 

EOa,WKI,WKH) 

iME,wo,wi ,ab 


T(36)  tXi2)  .XOJT  t2) 
0.80,1. iO, 1.40, T.60 ,2.00, 
1.00,4.00,  1000.00- 
1.40,  1.  10,  1.  10,  1.10,  1.  10, 
1.40,  1.00,0. 95,  0.90,0.84, 
1.  10,0.81 ,0. 76, 0.72,0.66, 
1.00,0.69,0.03,0.  60,0.55/ 


).Gt!0).OR.   (XC  JT(2)  .GT.O)  )     GO    TO    20 


(T,X,XO0T,CPRI3E) 

) 

*iiO)  /  (HO*WO) 

M 

A 

IME 

HO 

YOO    HAVE    SELECTED    A    90    DEGREE    RECTANGULAR    SL30S    WITH'/ 

CONVERGING    OR    DIVEHGING    FLOW.       THE    HEIGHT    (DiaENSION'/ 

L    TO    THE    TORN    AXIS)     SHOULD    REMAIN    CONSTANT.') 

«*FIRST    QUESTION,    WHAT    IS    THE    CSOSS-SECTICNAL    INLET    HEIG 

WHAT    IS    THE    CROSS-SECTIONAL   OUTLET    HEIGHT     (DIMENSION    IN 
OF    TEE    TORS) ?') 

LAST    SOESTION,     WHAT    IS    THE    CROSS-SECTIONAL    EXIT    ilDTH?') 
CSOSS-SECTION    EXI££aELY    NARROW,     HE-ENTZR    BETTER    DATA.') 
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c«*  «• •*• 
C  rl 

C*«*  *««« 
C  R£ 

C  CJ 

C 

c 

c**«  * •• » 

S'J 
HE 
IH 
DI 
WR 
CA 
WR 
CA 
HH 
CA 
X  = 

IF 
C  = 
GO 
C  = 
CO 
K  = 

c? 

OH 
AR 
WK 
KK 

WK 
HK 
WK 

FO 

♦TH 

♦  N3 
FO 

♦  • 

FO 

BE 
EH 


10 
20 


600 


60  1 
602 


*»»  ««« 
ITING 

I.    Asa 

SVE    FI 


•« • «*« 

SEOiJTI 
AL  MKB 
TEGEE 
aENSIO 
ITE  (fc, 
IL     n£A 

LL     o£.A 
ITS  (6, 
IL    iZk 
L/H 
W/H 

f (X.GT 

J. 4347 

TO    20 

NTISaE 

0- 4704 
RI.1E=C 


1 1  : 

SAE    HA 

T    TO    T 


LEOWS    90    DEGREE    RECTANGaLAH     IN     Z-3HAPED    CONFIG 
PA3E    33.32,     TA3LE    B- 3 ,     FITTING    3-11 


NCBOOK,     t 
II    TABLE 


:ata 


N£  FIT 
,C,ARE 
SORL.G 
N  WKI  ( 
6  0  0j 


OH  |H,5 

DH4W,5 


60 


6  0  2) 
DE  (L,5 


11     (30aL,GE0H- WKI,'.«KR) 
A,DH,L, W,H,CFSiaE,X,Y,K 
ECa.WKI 
2),5KE(4) 

) 
) 


•  *««  mQ 

C 
*mmm*Q 

C 

c 
c 

c 


. 0.0)  . 
-0.099 


AND. 

2*1 


(X.  LT.2.8)  )     GO    TO    10 


=2. 0*( 
=  H*w 


a5  04  5«X)-5.210  52)*X*9.1399)»X-2.163)«X*0.05  45 

«EX?  (-0.3558*1)  +0.67 

«K 

H*W)/(H  +  W) 


HAVE    SELECTED    A    SERIES    90    DEGREE    RECTANGULAR     ELBOW'/ 

SHAPED    CONFIGJSATIJvS.  •/'        ••FIBST    QOESTION,    WHAT    IS 

THE    ELBOW    CROSS-S  ZCTIO  N?  •/'  (DIMENSIOii    IN    THE    PLJ 


^?3 


rHE     WIDTH    OF    THE    ELBOW    GROSS-SECTION?'/ 


SION    PARALLEL    TO    THE    TURN    AXIS)') 

UESIIOM,    WHAI    IS    THE    LENGTH    BETWEEN    CENTS2LINES' / 


E8TRANCE    AND    "Z"    EXIT?') 
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C  FITTING     12:     ELEOWS    90     DEGHEZ    IH     DIFFEEZNT    ?LANES  C 

(;«*««««««««*«««»«««*««*«  «««««s«**««*«««««*«««**«**««««**«««««*«*«««««««(3 

C  flEr.     ASHRAE    HANDBOOK,     PAGE    33.33,     TABLE    3-3,     FITTING    3-12  C 

C  COEVE    FIT     TO     THE    TAaOLATED    OATA  C 

c  c 

c  c 

(2*m***ma  ******  *****************************************  *************t**c 
SaSROOTIJJE    FIT12     (SOB  I,GE0f1 , '.JKI ,  WKH) 
HEAL    WKE - C, AR E A, DH, L, W,H,C PHI as, X,  r,K 
IIIIEGER    S0HL.GEC.1,;JKI 
CI.1ENSI3N     WKI  (2)  ,IiKH  (4) 
«aiTE  (6,600) 


CALL    HEADR(H,5) 
WEITE  (6,60  T) 
CALL    REiDRJW,5) 


HEITE  (6,602) 
CALL    aEADE  (L  ,  5  ) 
X=L/H 
Y=S/H 

IF  (CI.GT.  0.0)  .  AND-  (I.  LT.  1.4)  )     GO    TO     10 
IF  ((X-^S.  1  .4)   , AND.  (X.  LT. 2-0) )     GO    TO    20 
IF]    X.GS. 2.0) . AND. (X- LT. 4.0) J     GO    TO    30 
C=3.a-0.  10*X 
GO    TO    40 
10         C=(n(1.79  34  3«X)-5.47  366)*X*3.5957)«X*-2.29  846)«X*1.2Q 


GO    ffl    40 
40 


20     •    C=  (Jj  1.04l66*X)-5.357  13)  *X*8.60118)  «X-1  .0057 


30         C= (( (0.00 983»X) -0.246 799)* X*1. 154425) *X* 1.7 02965 
40  CCNTiNOE 

K=  0.4  704* EXP  (-0.3 5 58*?)  +0.67 

CP5I?1E=C*K 

DH  =  2.  0*  (H*H)/  (H-fi) 

AR£A=H*W 

HKI(1)=GE0H 

HKI    2    =12 

WKE  h)=AREA 

WKB  (2)=DH 

WKE    3)=C?EI.1E 

BKE    4[=AEEA 
600       FOEMAir        IfOO    HAVE   S2LECTZD    A    SET    OF    90    DEGREE    3ECTANGULAR    ELBOMS 
♦IN    DIFFERENT    PLANES.'/'       ••FIRST    OJESTION,     WHAT    IS    THE    HEIGHT    OF    T 
♦HE    ELEOtf     CROSS-SECTION?'/'  (DIMENSION    IN     THE    PLANE    OF    THE    TURN 

60  1       FOEMATC        WHAT    IS    THE    WIDTH   OF    THE    ELBOW    CROSS-SECTION?'/ 

♦  •  (THE    DIMENSION    PARALLEL    TO    THE    TURN    AXIS)^M 

602       FORMAT('        LAST    QUESTION,    WHAT    IS    THE    LENGTH     BET^JEEM    CENTERL  IN  ES' / 

♦  •       OF    'THE     "Z"    ENTRANCE    AND    "2"    EilT?') 
SETURN 

END 
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C               FITTING    13:        EEANCH    SECTION    DIV£?.GI;J3    WiS  C 
Q««»  *•««•«*»«*«•««*««••««*•««««•««*«««•***««•**«•««««««««***  •«««««*««**(3 

C               E£f.     IDEL'CHIK,    HASDBCOK    0?    HYDHAJLIC    HESISTANCZ,  SECTION    SEVEN       C 

C               PAGES    247-253  C 

C  C 

C  C 

SUEHOQTINE    F  IT  1  3  (S  ORL  ,GEC.1,  I.KI,  «KR) 
REAL    KKR, ALFAD.AC, AB 
INTEGER    SOflL-GrCa, ^KI 


CiaENSION     WKf  (2)  ,  «KR  (4) 

WHITE  (6,6001 

CALL     SEADSJALF  A::,5) 


WRITE  (6,o0l) 

CALL    SEADR(AC,5 
WRITE  (6,  602[ 


CALL    3EADR  (AB,  5) 
HKI  (1)=GE0M 
WKI    2)=13 
WKR(1)=AC 
HKR  (2    =AB 
HKR    3)=\LFAD 
MKE    aj^=AB 
600       FCHriATC        TOa    HAVE   SELECTED    THE    BRANCH    SECTION    0?    A    DIVERGENr    WYE. 

♦  '/'       THE    HODOLE   COOLING    AIR    SHOaLO    3E    BRANCHING    OFF    THE    ^lilN'/ 

♦'       INLET     AND     FLOWING     THROaGH    THIS    SECTION.     '  THIS    SHOULD    3£    THE    '/ 

♦  •       FIP.ST    FITTING   OF    THIS     BRANCH.'/ 

♦  •        **riRST    30ESIION,     MHAI    IS    THE    ANGLE     BETit  EEN    THE    SMN    FLOH    '/ 

♦  '        AXIS    AND    THE    BRANCH    FLO'J    AXIS     (DEGREES)      ?') 

60  1        FORMAT  ('        WHAT    IS    THE    CROSS-SECTIONAL    AREA    Of    THE    CC;iBINED    FLOW'/ 
♦•'       SECTION?       THIS    IS     WHERE    BOTH    ENGINE    AIR     AND    COOLING    AIR    FLOW'/ 

♦  '       JDST    aPSTREAM    OF    THE    BRANCH.  ') 

602       FORHATC        LAST    QUESTION,     WHAT    IS    THE    CROSS- S  ECTIC  NAL    AREA    Of    THE    B 

♦  RANCH?') 
RETURN 
END 
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c 

VEN  C 
C 
C 
C 


MAIN    SECTICN    DIVEHGING    WYE 
IK,    HANDBOOK    OF    HYDRAJLIC    SESISTAMCE,    SECTICN    SE 

IT  14  (SORL.GEO.I,  ii'KI,  iHR) 

-GECa.WKI 
i(2),&KH(U) 

M,  5) 


U    HAVE   SELECTED    THE    3AIN    SECTION    OF    A    OIVERGIIJG    WYE.  '/ 
0    THE    ENGINE    SHOULD    3£    FLOWING     THRCJGH    THIS    SECTION.'/ 
QUESTION,     WHAT    IS    THE    CROSS-SECTIONAL    AREA    OP    THE    »/ 
ION?       THIS    SHODLD    BE    THE    AREA    JDST    DOMNSTEEAS    Of    THE'/ 
AND    DIRECTS    FLOW    TO    THE    ENGINE.       IT    ALSO    SHOaLD    BE'/ 
FITTING    OF    THE    BRANCH.') 
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(3«*«  «*«  « 
C  fl 

Q*** **«• 

c  as 

C  PA 

C 
C 

c««*  *«• • 
so 

SE 
IN 
DI 
MR 
CA 
MR 
CA 
WR 
CA 
VK 
HK 
HK 
WK 
UK 
WK 
600       FC 


60  1 

602 


«««  •*• 

TTING 
*««  ««« 

F-     IDE 

GZS    24 


ESOaTI 
AL    HKR 

lEGER 
.1ENSI0 

irEj;6 


15:        5  RANCH 
««««««  ««««*« 

L'CHIK,    HAND 
7-253 


SECriCN    CONVZRGi:iG    WYE  c 

BOOK    0?    HYDRAJLIC    RESISTANCE,     SECTION    SEVEN       C 

r 


•  ««**« 
NE  FIT 
,  ALFAC 
50  RL ,  G 
N  WKt( 
600) 

.ALF 
60 


15(S0R 
-AC, A3 

tca.wK 

2)  ,KKE 
AC,  5) 
5) 
5) 


L,GEca,;jKi,  .«Ka) 

I 


ELECTED    THE    3RANCH    SECTION    OF    A    CONVERGENT    '/ 
OLE    CCOLING    AIR    SHOULD     5E    JOINING    THE    1Ai;i'/ 

THIS    WVE.       THIS    FITTING    SHGOID    3S     THE    LAST'/ 
ANCH. '/ 

«HAI    IS    THE    ANGLE     3ET3ZEN    THE    SAIN  'FLOW     '/ 
A  NCd    AXIS     (DEGREES)  ?') 
E    CROSS-SE-TICNAL    AREA    OF    THE    CCMBINED    FLOW'/ 

WHERE    ENGINE    ZXHAJST    AND    aOD'JLE   COOLING    AIR'/ 
EA.".    OF    THEBRANCa.'l 
ION,     WHAT    IS    THE    CROSS- 3ECTI0 NAL    AREA    OF    THE'/ 
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C  FITTING    16:     .IAIN    SECTICN    CCNVZii3ING    »'iL  C 

Q^^ m ***•*******•****•********"**************************************•* mc 
C  RZF.     IDEL'CHIK,    HANDBOOK    OF    HYDHiaLIC    RESISTANCE,     SECTION    SEVEN       C 

C  PAGES    247-253  C 

C  C 

c  c 

Q*** «««»«*•««**«  mm  **************************** ************«m*m«***»**mMQ 

SaBF.OUTINE    FIT  16  (SOHL.GECS,  HKI,  WKB) 

SEAL    WKB.AM 

INTEGER    SOSL-GECa.WKI 

CI.^ENSION    WKI  (2),«KE(4) 

WRITE  (6,  600) 

CALL    5EADR (AM, 5) 

WKI  (1)  =GEOM 

HKI    2)=16 

WKR  (1    =\A 

WKB  (2)=0. 0 

WKR (3) =0. 0 

WKE  lU  )  —A  M 
600       FORMATC        ?0a    HAVE    SELECTED    THE    .IAIN"    SECTION    OF    A    CCNVERGING'/ 
■•■•        rfYS.       THE     ENGINE    EXHAUST    ALONE    SHOULD    3E     FLOWING    THROUGH     •/ 
♦•       THIS    SECTION.       IT     SHOULD    BE    THE    LAST    FITTING    OF    THE     cHANCH.'/ 

-    i^  - 
♦  •  MAia     BRANCH?') 

FSTORN 

END 


c 

c 
c 

c 

c 
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20 
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26 
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602 
603 


FITTING    17:    CONCIAL    DIFTaSSa  C 

HEF.     ISSL'CHIK,    HANDBOOK    OF    A'iu3.k^l.lC    HZSISTANCE,    SECTION    FIVE,       C 

PAGE     167  C 

C 

C 
«««*«*««««*««««««««««« ««««*«»««««««««««*««««*«««««*«««*«««s«««««*c^ 

SUBROaTINE    FIT17(S0aL.GE0."1,  WKI-  3KR) 

REAL    WKR,L,30,21,;<1,K2,A0,A1,TKETA,CEX?,CFH?ttI 

INTEGER    GECM.SCai, «KI ,ANS,YES,NO 

DI.1ENSI0N     HKI  (2)  ,  «KR  (4) 

DATA     YES/' YV,  NC/' NV 

WRITE  (6,  600) 

ZkLu     SEADfi(L,5) 

WHITE  (6,  60  11 

CALL    HEADa(D0,5) 

WRITE  (6,602) 

CAIL    rEiORf&1,5) 

WRITE  (6.  oO  j)^ 

READ  (5,d04 ,^N0  =  14,ESR  =  14)     ANS 

IF     (]ANS.  EQ.  ISS).OH.  ( ANS.EC.NO)  )     GO    TO     16 

WRITS     (6,608) 

GO    TO     12 
CONTINUE 
K1=1.0 

IF  (ANS.EQ.  YES)      R1=t).8  '  '  ■ 

A0=0. 7854*D0««2 
A1=0.7854*D1«*2 
IF(AI.GT.AO)     GC    TO    20 
WRiTE  (6,  605 

THETA=2.  0*ATANi  (DI-DO)/  (2.0*L)  ) 
IF  (THETA.  IT.  0-  5^4)     GO    TO    Z^ 
WRITE  (6,606)^ 
READ  (5,504 ,ZRR  = 

IF 


D  (5,504  ,: 

(Ja5s.EC. 

RiWIND    3 


;4,SND  =  24)     AN3 
YES)  .6a.  (ANS.EQ. -JO)  )     GO    TO    26 


(6,608) 


.2)  "(1.  0-AO/A1)  **2 


:?RITZ 

GO  TO 
CONTINOS 
K2=1.0 

IF  (ANS.EQ.  YES)      K2  =  0.6  5 
IF    THETA.  GT-0.  7)    GO    TO    40 
CEXP=1.3454*  (THEIA**1 
GO    TO    60 

IF  (THZTX.GT.  1  .  :!)     GO     TO    50 
CEI?=((((-0.3637*THETA)-0.a715)  •rHSTA*3.J21  3) 'THETA -0.6410)  * 

(1-  0-AO/A  1)  ♦•2 
GO    TO    60 
CEX?=  (  ((  (-0.  00  61«THETA)  -0.  013  9)  'THETA-O  .09  2  9  3)  ♦THETA+1.  2623)* 

(1.  (3-A0/A1)  ••2 
CCNTINOE 
HRITEi6,  607) 

CFF?Ri=n  .  u-  (A0/A1)  **2)/  (3.  0«SI  N  (  rHETA/2.  0)  ) 
HKI  (11=GE0.1 
WKI    2)  =1  7 
WKH    1) =A0 
BK?  (2)  =:rR?RI*K2 
HKE(3WCE2P»K1  *K2 
WKR  (4[=A  1 
600       FCRflATC        YOU     HAVE    SELECTED    A    CONICAL    DIFFUSEP     WITH    CIRCaLAH 

♦  •        INLET    AND    OUTLET    SECTIONS.'/ 

♦  •        ••FIRST    DUESTION,     WHAT    IS    THE    LENGTH    OF    THE    DIFaSSR?') 
FORKATC        HHAT    IS    THE     INLET    0IA.1ZTER?') 
FORMAT    •        WHAT    IS    THE    OUTLET    DIA.1ETZR?M 
FORHATT        IS    THERE    A     NON-U  N  IFOR  .i    VELOCITY    DISTRIBUTION     AT    THE    INLI 

♦  T     (Y/N)?') 


V 


79 


o0  4        FOE^IATtAI) 

605  F0E.1AI    '        D0RNSIPEA.1     AREA    I 

♦  '         FITTING    IS     NOT    A 

606  FORMArC        SINCZ    THEHE     IS    A 

♦  '        INSTALLATION    OF    3 

♦  •  THE    RESISTANCE    CF 

♦  •  DIVIDING    WALLS    OR 

607  FOFHATC        NO     »Cfi£    QUESTIONS 
bOa       FOSMAI('        YOO     BUST    EHIER    A 

PETJRN 
END 


S  NO 
OIF? 
•/J  IDE 
I7ID 
THIS 
BAFF 
IHI 
LETTER    IN 


T    GEE 

JS  EF. . 

DIVE 

IMG     W 

FITT 
.■LES     (. 
--    FIT- 


ATE?.  T 
RE-i 

P.GING 

ALLS    0 

ING. 

Y/N) ?• 
ING.  ' 
THE    3 


HAN 

STE 
ANG 

R     3 
DO 


UPST 
R    OIA 

AFr     ^ 

Yoa 


EEA.I  AR 
.ISTEHS. 
'AZ  ?RC? 
5    CAN     R 

ANT    TO 


EA.'/ 

EDOCE'/ 
INSTALL '/ 


ACKETS.*) 


30 


c 

c«*«  * 

c 

c 

c 

c 
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16 


23 

24 
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40 
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60 


600 


.-i:t:ng  ia:   plane  in-line  DiFFaszH  c 

S£F.     IDEL'CaiK,    HANDBCOK    G?    HYDRAJLIC    RESISTANCZ,    oZCIICN    FIVE,       C 
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C 
C 

•  «•**•*««  ««*4i  «««*«*«**«*i4i  «**«**«««««*««««*««**«««««««««  ««««««««»««(^ 

SUEROOrirJE    pit  18(SCaL,G£C.1,  *KI,  WKP) 

HEAL    :iKR,L-H,-r<0,«1  ,K  1  ,  K2  ,  Ai5  ,  A  1 ,  IHE-A  ,  CEXP,  C  FHPP.I 

IN'TEGEH    GECf  .SCSl,  «KI  -  ANS/ri5,N0 

:i«E.NSIDN  :  (2)  ,>JKP.  (  4) 

OAIA     iES/'  .'  /  ,.Nfc/'N'/ 

WRITE  (6,  600> 

CALL     nEA0Bd,5) 

WRITE  (6,6  0  T) 

CALL     READB(H,5) 

WaiTE  (6,  o0  2) 

CALL     SEADE(»0,5) 

WRITE  (6,603) 

CALL     READH  (W1  ,5) 


WRITE  (6.604) 

READ(5,o05,Z;ND  =  m-EP.a  =  l4)     ANS 

IF     {]aNS.  e5.  YES)  -OE-  (  ANS.EQ.  SO 


( (ANS. E2 

RiHIND     5 
WRITS     (6,609) 


C)  )     GO    TO     16 


GO    TO 
CCNTINDS 
K1=1. 0 
IF  (ANS-EQ.  I, 
AD=W0*H 
A1=W1*H 
IF  (A  1  -GT.  A3 

WRTT? 


;S)     K1  =  6.8 

GO    TO    2  0 


xa  i  (6,  oO  6) 
GO    TO     l5 
1HETA=2.0*  ATAN  (  (W1-W0)/(2-0*L)) 

IF  (THZTA.  LT- 0.  5:'4)     GO     TO    30 

WRITE  (o,607)_ 

READ  (5,o05,J:N0  =  24-ERR=24)     ANS 

IF     (JANS.  EC.  YES)  .OH.  (  ANS.EQ.NO)  )     GO    TO    26 

REWIND     5 

WRITE 

GO    TO    2  2' 
CONTINOE 
K2=1.0 


(6,609) 


I)  *  (1.0-A0/A1)  **2 


IF  (ANS. EQ.  YES)  K2  =  0.65 
IF  THETA.  GT.O.  7[  GO  TO  40 
CEX?=  1.3  4  54*  (  THETA**  1  .2)  *  (1 
GO  TO  60 
IF  (THETA.  GT.  1.  05)  GO  TO  50 

CEXP=  ((( (0.3 63 7*THEIA) -0.3715) 'THETA ♦3. 021 8) •THETA- 0. 5 4 10) 
♦      n- 0-A0/&1)**2 
-,0  TO  60 

ICNTINOE 


623) 


;0    TO    60 
CEX?=  (  (  (  (-0.00  61*THErA)  -0.0139)  'THETA-O  .  09  2  9)  *THSTA  *  1 . 

■A0/A1)  ••2 
CCNTi:^OE 

CFRPEI=(  (WO/H)  •  (1.  0-A0/A1)  ♦O.S*  (1.0-  (AO/Al)  **2))/ 
♦  (4.  J*SIN   THETA/2,  0    ) 

WRITE  (6*608) 
HKI(  1)  =GE0.1 
""'    2)=18 
,1    =A0 

2)=CFRPRI*K2 
3)  =CEXP*K1  »K2 
4)=A1 

ATC        YOO    HAVE    SELECTED    \    PLANE    INLINE     DIFFUSER    WITH    ONE'/ 
DlflENSIGN    CONSTANT    THROOGHCUT    AND    EECTANGaLAR    INLET'/ 
'        AN  D    C  d'^LET.  '  / 
•        •*FIRSf"QaESTION,     WHAT    IS    THE    LENGTH    OF    THE    0IFF0S23?') 


31 


6J1       FORMATC 


602 

603 
b04 

605 

606 


FOS?!! 
FO  E  a  A 
FOH.IAT  (• 
♦  T  (Y/N)? 
FOEMAT  (A 
FORMATf' 


i! 


WHAT 

CROS 
^'HAT 

WHAT 
IS    T 


IS    THE    CCNSTA;iT    HEIGHT    OF   THE    INLZT    AND    OaTLET    '/ 


S-S2CTI0NAL    AREAS?') 

IS    THE     WIDTH    OF     THE    i:fLET    CROSS-SECTIONAL    AR 
IS    THE    WICTR    OF    TdS    OUTLET    CROSS-SECTIONAL    AREA? 
KZRE    A     NGN-QNIFOR;!    VELOCITY    DISTRIBUTION     AT    T 


EA?^^ 
HS    INlE 


607       FOHMATC 


603 
609 


FCR.IATf' 
FORMAT  (• 
BEIORN 
END 


DOWN 
FITT 
SINC 
INST 
THE  R 
DI7ID 
NO  1 
YOU 


STREAM     AREA    IS    ^JCT    GREATER    THAN    UPSTREAM     AREA 
ING    IS     NOT    A    DIFFUSES.        RE-ENTER    DATA.') 
Z   THERE     IS    A    WIDE    DIVERGING    ANGLE.     THE    PROPER 
ALIATIONS    OF    DIVIDING    WALLS    OR    BAFFLES    CAN    RE 
ESISTANCE    OP    THIS    FITTING.       DO    YOU    WANT    TO    IN 

■>  I 


ING  «ALLS  OR  BAFFLES  (Y/N)?') 
ORE  QUESTIONS  THIS  FITTING. 'J 
MUST    ENTER    A    LETTER     IN    THE    BRACK 


'/ 

DUCE'  / 
STALL'/ 


ETS.' ) 
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c 
c 
c 

c 
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600 


rlTTI.'JG     19:       PYPA.1I3AL    3IFF-J3E?.,     IN    IINS  c 

««***««»•«««««««»««*««*«*••«*«»>«««•««»«*««• «««««*««*««««««*««tt*««p 

REF.     IDEL'CaiX,    HA.JDaOOK    OF    rfYDSAULIC    RESISTANCE,     SECTXCN    FIVE,       C 
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r 

C 
«•*•****«««*«**•*««*«**«*««*««*««««*«««« ««**««*«««««***«*«***«««*«p 

SaEHODTINE    FIT  1  9  (SOR  L  -  JEC.1,  WKI  -  SKH) 

REAL    l<Ka,L-30,:;0-H1,;»1,K1,K2,AJ,A1,ALfA,BETA,THETA,CSXP,CFRPSI 

INTEGER    GECa,  SORL,tIKI  ,ANS,YES,J.-0 

DIBEHSION     WKI  (2)  ,WKH  f  4) 

DATA     YES/'  YV/NO/' N'/ 

WRITE  (0,  oOO) 

CALL  r.£iDafL,5) 

HEITE  (6,  60  T) 


WRITE  (6,  602 
11    SEA 
RITE(6,603) 
CALL     SEiOR(H1, 
WRITE  (6,  604) 
CALL    SEADE{W1, 


CA 

SR 


.  D  E  (W  0  , 
6  0  3) 


RRITEfb,  bOS) 
R£AL{5,o06,ZND=1U,ERH  =  l4) 
IF     (JANS.  EC.  YES)  .OR.  (  AJiS. 

SRITE     (6,610) 

GC    TO     T2 
CONTINUE 
K1=1.0 

IF  (ANS.SQ.  YES)     K1=6.3 
A0  =  WO*HO 
A1=H1*H1 

IF  (A1  .GT.  AO)     3C   TO    20 
WRITE  (fa.  607) 
GO    TO     10 


ANS 

;q.;.-0)  ) 


GO    TO     16 


ANS 

,ZQ.NO) ) 


30    TO 


.65 


40 
•(1. 


0-A0/A1)  •*2 


WRITE  (6,  603) 

READ(3,o06-£:ND  =  24,ERE  =  24) 
If     (]ANS.  Eli- YES)  .OR.  (ANS 

REVINO     3 

fiRITE     (6,610) 

GC    TO    2  2 
CONTINUE 
K2=1. 0 

IF  (ANS. EQ.  YES)     K2  =  0 
IF    THZTA- GT.  0.  44)     GO    TO 
CEX?=  1.6  31  8*  (THETA«*1  .2 
GO    TO    60 

:f  (thzta.gt.  1.  C5i_  go   to 

-  ■     -  .3593*THEI 

•A0/A1)  •*2 

;o  ----- 

CEXP=1.  1«  (1.0-AO/Al)  *«2 

CONTTNDE 

CFaFai=(1.  0-  (A0/A1)  **2)/  (3.  J*Si:i(IHETA/: 
WRITS  (6,609) 
'.  =GECB 
1=19 
=4  0 

=CFHPHI*K2 
=CEXP*K1  ♦K2 
-=A1 
FORMAT  ('        YOa    HAVE    SELECTED 
♦  R.'/'       *«FiaST    wOESTION,     WH 


.  r  I  *  n  I.  -  .A  .  u 
:EiE=,|(^3. 

;0    TO    60 


:a)-9 


50 

.7924)  *r;iETA*9. 


4559)  *THETA-  1.  922D)  * 


3)  ) 


PYRAaiDAL    INLINE 
IS    :H£    length    OF 


RECTANGJIAR    DIFFOSE 
THE    OIFFUSER/') 


33 


60  1  fcrma: 

d0  2   FC  5.-1  at 
603   rOR.IAT 

♦  « 
eon        rOr.^AIC 

605  FOBMATC        IS    f  EZ?,z"a"  NON-J  NIFORm"  VELOCITY"  5  ISTc  13  UTION    AT    TK2    IHLE 

♦  T     (Y/N)?'- 

606  FCFMAT(A1 
o07       FC5MAT(' 

603   FOBMATC 

609   FOPMATC 
olO   FOF.'<AT(' 

5  E  T  a  R  N 

END 


84 
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c 

c***  * 
c 

c 
c 
c 
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FITTING    20:       TRANSIT! GNAL    DIF5U5£R 

5Er.     IDiL'CHIK,    HiNC3CCK    OF    iiYOHAJLIC    aiSISTANCE,    SECTION    FI7 
?AG£     174 


20 
30 


40 
50 
52 


54 
56 


60 
70 


80 
90 


SUEHOUTINE    FIT20(SORL,GEOM,3Kl4  3KE) 
REAL    WKE.L ''  '         "" 


FIT20(SORL,GEOM,%.^j.4  n.w., 
,a,W,r,IHZTA,AO,  A1,X1-.<2,CEXP,CFR?RI 
:GM,i?KI  -iN3,lf£S,N6 
.  2),WKE(4) 
DATA     YES/'  Y' /,  NC/'NV 


•  *•  »r 

E,       C 

C 

c 
c 


INTEGER    Sc5L.GECM,i?KI 
vIMENSION     ."KI(2),WKE( 


WRITE  (o,  600 


E  (0,600) 

Ei6,60  ^y 


:»RITE  (6,60  1 
READ  (5,o02,! 

ANS.  EC. 

3IND 


ND  =  14,  ERR=14) 
YES)  .OR.  (ANS. 


ANS 

EQ.NO)  ) 


;0    TO     16 


WRITS     (6,611) 

to 


5) 


GO    TO 
CCNTINaE 
WRITE  (6-  60  3) 
CALL     FEADR  (L , 
WPITE  (6,  604) 
CALL     nEADfi(H,5) 
WRITE  (6,  605) 
CALL    pEADRr«,5) 
WRITE  (6,  6061 
CALL     rxADR  (D  ,  5  ) 
IF  (ANS.SQ.  YES)     GO 
AO=H*W 

A1=0. 7854*D«*2 
IF(AI.Gr.AO)     GC 
WRITE  (6.6u7j 
GO    TO     10 

IHETA  =  {D-2.0*SCET(H«H/3.  14  16)  )/L 
GO    TO    50 
A1=H*W 

A0=0. 7854«D**2 
IF  (A1.GT.  AO)     GO    TO    40 
WRITE  (6,607) 
GO    TO     l5 

THETA=  (2.  0*SiHT  (H*H/3.  14  16-D)  )/L 
"NTINUE 


TO     30 


:o   20 


WRITE  (6,608) 
P'^AD  f5.D32  .fe' 


READ  (5,o32,iND=54,EEH=54)     ANS 
.         1...-      _-     yr-ci  .5a.   (4JJS. EQ.NO)  ) 


(  (ANS.  £. 

WRIT 
GO    T: 
JTINO 
=  1,0 
IF  (ANS,SQ.  y 
IFJTHETA.LT 
WRITE  i6t609 


^',6  11 
2 


50    TO    56 


TO    60 


GO  TO 
CCIiTINOE 
K1=1,0 

YES)     K1=6. 

-    0. 524)     C 

. 19) 

READ(D,o0  2)     ANS 

K  2  =  1 .  3 

IF  (ANS.EQ,  YES)     K2  =  0,65 

IF    THETA.GT.  0.44)_    GO     TO    70 

CZX?=1.6  618*  (TH£TA«*1  .2)  •(1.0-AO/Al)  ••2 

GO    TO    90 


IF  (THETA.GT.  1  .  05)^    GO    TO    30 

CEX?=  (((13.3  59  8*THETA)  -9.7924)  *  THE  TA  ♦9,455  9)  «THETA-  1.9  2  20) 
♦  (t.O-A0/A1)»«2 

GO    TO    90 

CEXP=1,  1*(  1.  0-AC/Al)  **2 
CChTINUE 
WRITE  (6,  6  10) 

CFHPEI=(1.  0-  (A0/A1)**2)/  (8.  0«SIN  ( IHETA/2- 0  )  ) 
WKI  (1)=GE0?I 
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HAVE  SE 
CIANGu'L 
F.ST  i'JE 
..NO  .IE 


LECTED    A    TRAUSITIOHAL 
AE    Oa    iECTAN jULAE    IG 
STICN,    IS    THIS    rlTTIN 
ANS    i?ECTANGJLA2    TO    EO 

LENGTH    OF    THE    DIFF'JS 
HEIGHT    OF    THE    HECTAN 

«IDTH    OF    THE    EECTANG 

DIAMETEH    OF    THE    ECaN 


DIFF'JSER.       IT    ;1AY    BE'/ 
EOaND    CECS3- SECTIO."!.  ") 
G    aCUND    TO    EECTANGJLAR? 
UND)  ') 

ES7'  j 

GULAE    CE02S-3ECTI0NAL    AE 

JIAE    CaCSS-SSCTIONAL    ARE 

D    CRCSS-SECTIONAL    AREA?' 


AREA    IS    NOT    GREATER    THAN    THE    UPSTREA.1    AREA.  •/ 

NOT    A    OIFFJSER.       5E-SNTEE    OATA.') 

NON-JNIFORS    VELOCITY    DISTRIBUTION     AT    THE    INLE 


SINC 

INST 

THE    S 

DIVID 

SO     .1 

YOO 


E  THERE 
ALIATIO 
ESISTAN 
ING  PAL 
CEE  202 
naST    EN 


IS     A    WIDE    DIVERGING 
NS    OF    DIVIDING    SALLS 
CE    OF    THIS    FITTING. 
LS    OE    BAFFLES     (Y/N) ?' 

STICNS    THIS    FIxTING. ' 
TEH    A    LZTTES    IN    THE    3 


ANGLE,     THE    PRCPERV 

OR    BAFFLES    CAN    SEDaCE'/ 

DO    YCa     WANT    TO    INSTALL'/ 


ACKEIS.' ) 
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c***  » ••• 
c  ■: 

c**  «  * ••* 

C  RE 

C  Ti 

C 

C 

C*«« • **« 

50 
RE 
IN 


TTING    21 :       C 
««««««  «««««« 

F.     ASKSAE    HA 
cLZ    INTERPOL 


600 

601 

602 


DA 


•  «*  •«« 

SHOUTI 

AL     HKR 

TEGEH 

2ENSI0 

1A    V8 

0 

1 

0 

0 

0 

0 

J 


\^  V    ^  TT 

tDOJOl 

oO  RL, G 

N     WKI  ( 

.0,5.0 

.0,10. 

.0,2.0 

.0,0.0 

.0,0.0 

.0,0.0 

.0,0.0 

.  0  .0.  0 

6  0  0) 

DHj^,5 


lECaLAB     CGNTP.ACTIOM  c 

*•«*«««*««•«««««« ««««««««*««*»«»«««*««««««««««««««*Q 

NCBOOK,     PAGE    33. J4,     TABLE    3-5,     FITTING    5-1  C 

ATION  C 

C 
C 

21  (30RL,GE0M,»KI,  ilKQ) 

,L,THEIA,T,C,A1  ,dO,i 

'ca.HKI.XOOT 

2),SKH(Ci)  ,T(55)  ,i  (2)  ,2007(2) 

8,30.0, 55.0,90.0,  120.0,  150.0,  190.0, 
.li- J.nl  Q.  1  0.0  . 


l*AIAN(  (D1-D0)/{2.0*L)  ) 

2 


,xoaT,c) 


HAVE    SELECTED    A    GIRCOLAP    CONTRAC: 
C'JESIION,     WHAT    13    THE    LENGTH    OF    : 
IS    THE     UPSTREAM    DI  A  :i£TER  ?  '  1 
IS    THE    0O;JNSIHEA.1    wIAaETEH?') 


ION.  V 

HE    CCNTRACTION?') 


37 


C  ?I 

C  HZ 

C  lA 

C 

c 

su 

HE 
IN 

CI 
OA 

+ 

•f 
♦ 


TTING    22:       RECTA;I3ULA?.    CONrRACriON 

F.     ASHRA2    riA:iC3CCK,     PAGE    33.34,     TABLE    3-5,     FITIING    5-1 
ALE    INTERPOLATION 


600 

601 

602 
603 
60U 


CA 


u 


HE 
CA 
HR 
CA 
WR 
CA 
WR 
CA 
TH 
TH 
TH 
AB 
AR 

li 

CA 
WK 
WK 
WK 
HK 
WK 
HK 
FO 

FO 
FO 
FO 
:C 


or. 
EN 


EPOaTINE 

AL    WKR,X 

TEGER    SO 

idENSION 

TA    T/8.0 

0.0 

1.0 

0.  0 

0.  0 

0.0 

0.0 

0.0 

ITS  f6,60 

LL    ?e4dR 

L. LT. 0. 

TS  (6,60 

IL     r.SADR 

I7E  (6,  60 

IL    pEADH 

ITE  (6-  60 

IL     nEADH 

ITE  (6,  ftO 

IL     nEADR 

ETA  1  =  1  1  4 

ETA2=1  14 

ETA=A.1AX 

EA  1=A1*B 

£A0  =  A0*3 

1)  =THETA 

AREA1 

ABLE 

1)=GE0 

2    =22 

iUabe 

2  =0,0 

3  =C 

ai=ARE 
AT(' 
<       ♦«F 

BMAT  (' 
EMAT(' 
H.1AT  ' 
EMAT  (' 

CRCS3-S 
TORN 
D 


i.  a  V  —  r 

1j  =Tt 
2i=Af 

LI  t; 


FIT 
'■i  'f 
WKI  ( 

,5.d 

,10. 
,2.0 

,0.0 
,J.0 
,0.0 
,0.0 
,0.3 

(A1, 

.591 
1  (TH 

0 


22  (SCR 
1,31, A 
ECM.iK 
:),SKR 

5,30.0 

,4. 0,6 
,C.0,0 
5,0.05 
5^0. 04 
5,0.04 
5,0.05 


L  ,GEC:i,  WKI,  HXR) 

0 ,50,AfiEA1, AR£A0,C,L,rHETA1,TEETa2,THETA 
I ,iO&T 
(4)  ,1(55)  ,X(2)  ,XOUT  (2) 

, 55. 0,90.0, 120. 0,150.0,  180. 0, 

.0,10.0. 

. 0,0.0,0.0,0. 0,0.0, 

,0.06,0. 12,0. 18, 0.24,0. 26, 

, 0.07,0. 17,0.27,0.35,0.41, 

, 0.07,0. 18, 0. 28,0.36,0.  42, 

, 0.03,0.19,0.29,0.37,0.  43/ 


•C 

c 
«c 
c 
c 
c 
c 
*c 


u. 


05 


5) 


5) 

5) 

5 6* A  TAN 

56*A 

ETA1 


TAN  (  (A 

tanjIe 

,THE-A 


A1-A0)  /(2.0*L)) 
E1-30)/(2-0«L)) 


/ARE80 
■T,X,XOUT,C) 


A1 


AO 

■fOU     HAVE    SELECTED    A    BECTANGULAR    C  C  NTRACTICN .  '  / 

IfiST    QUESTION,     WHAT    IS    THE    LENGTH    OF    THE    CONTRACTION?' 
WHAT    IS    THE    LEAST    OPSIREA.I    CROSS- SEC  HON    DIMENSION?') 
WHAT    15    THE    GREATER    -JPSIREAS    CR2  S  S- SECTIO  N    0I.12NSION?' 
WHAT    IS    THE     LEAST    D0HN3IREA.1    CHC  SS-S  ECT IC  N    3I.1ENSI0N?' 
LAST    COESTION,    WHAT    IS    THE    GREATER    uC  W  N  STREA  .1  •  / 
ECTICN    DIMENSION?') 


38 


:iTING 

,      ASH 

FVZ    FI 
;EE    FLO 


23:  SC 
«««««* 

RAE  HA 
I  TO  T 
W     A££A 

NE    FIT 

,  oaciA 

SQ2L,  J 


P.  EE  N  C 

»«««««*««««««««*»*«*«*«««**«««««««««*««*««««««««•«•(; 

:JDB0CK,     page    j3.42,     table    3-7,     FITTING    7-3  C 

AcJLATtD    3ATA,     BAS^O    ON    0 JCT     AREA    AND    SCREEN  C 

C 
C 

23     (S0aL,GE0a,  WKI,SKE) 
.SCENA, N,C 
EC.1,  HK* 
2),-KR(4) 

NA,5) 

N) -9  2.  4  45)  *N*32.0  66)  ♦N-1-955  7)«H*0.02  5 


HA7E    SELECTED    A    SCREEN    CBSTRaCTION     IN    THE    DOCT. '/ 
wUESIICN,     WHAT    IS    THE    DUCT    C ROSS- SEC TIO NAL    AREA?') 
.;'J£STICN,     HHAI    IS    THE    FREE    FLCH    AREA    OF,  THE    SCREENI 


89 


LODVEE    ENTRANCE  C 

K    CF    HYDRAULIC    RESISTAIICE,     IDEL'CHIK  C 

DYNAMIC     LOSS    IJFCRMAnON,     NO    FRICTION    INLUDED  C 

C 
r 

IT2a{SOEL,3EO."l,«KI,WK3) 
,DGCTA,F,C 

soEi,  jZ:oa 

I  t2),WKE(4) 

&,5) 

CIA, 5) 
(-4.47543*F) 


CTA  •  • 

YOU    BAVE    SELECTED    A    LOUVEF.ED    ENTRANCE.'/ 

**FI55T     QUESTION,     WaAT    IS    THE    DISTANCE    ACSOSS    THE    '/ 

LOOVEE    OPENINGS?^ 

WHAT    IS    THE    DISTANCE    3ETWEEN    THE    L0U7EES,    USE    THE    '/ 

CLOSEST    DISTANCE.  ') 

HOW     ;1ANY    OPENINGS    ARE    IHEEE    BETWEEN    THE    LCUVEPS?') 

LAST     :OESTICN,     /JHAI    IS    THE    AREA    OF    THE    DUCT    JUST'/ 


INSID*    THE    LOaVEH    ENTRANCE' 


90 


c**« 
c 

c*** 

c 

c 

c 

c 

c*** 


FITTING    25:       I  MZT    rILI£° 


•»**««*««««*«*«***««*««*i 


10 


30 
40 


602 

603 


SUERCaTINE    FirZS  fSCSL  ,GEOfl-;KI,  TKR) 

SEAL    »KR.  AREA,  VEI,DEL?,XX,n,5Uai,3D3y,£a«X2,SnnY2,SaMXY,A,  B 

INTEGER    oCHL,iECM,WK:  ,N,  ANS,xES,:,  SPIS.  NO 

DI.1ENSI3H     BKI  (2)  ,SKR(U)  ,  VEL  (10)  ,0£LP  (l3),XX(10),YY{10) 

DATA    YES/' Y'/.  NC/' MV 

WRITE  (6,  6001 

CALL    READR  1AREA,5) 

WRITE  <b.6  0  11 


HAD  (5,o02,£:ND=u,ERR=a) 
F  (JANS.  EC.  YES)  .OR.  (  A^ 
R  E  W  IN  D     5 


ASS 

NS.EQ.NC) ) 


30    TO     6 


cc 


WRITE     (6,607) 


GC 
HTINO 


GO    TO     30 


IF  (ANS.EQ.  YES) 
WRITE  (6,603) 

cAii   :ii:-  , 

DO     10    1=1..^? 

;  (6,60U)^    I 

CALL    READRJVEL(I) 


X    HEADI  (SPTS,5) 
10    I=1.S?T3 
WPTTE(6,60U)     I 


5) 

,5) 

) 


WRITE  (6,b05l     I 
CALL    READR  (EELPfl) 
XX  (I)  =ALOG  (VEL  (I) 
YY    l5  =ALOG  (C£L?  (I) 
CCNTINJE 

sa."ix=o.o 

SU,"«Y=0.0 
SUflX2=0. 0 
S'J^Y2  =  0.  0 
Su\1XY=0.  0 
00    20    I=1,MPTS 

su!*x=so:ix*xx  (I) 

SOMY=SaBY*YY    I) 
S0.1X2  =  Sa.1X2+XX(I) 
S0?!Y2  =  SiJM  Y2*YY  (I) 
3aKXY=S0MXY+iX(I 

CCNTINOE 
N=FLCAT(NPTS) 

a=  (N*su'!XY-3bax*so?iy)  /(n*sohx2-  (soax**2)) 

A=cXE  (3aMY/N-3*SUMX/N) 
WRITE  (6.  o06) 
GO    TO    40 
A=0.0167 
3=  1.6297 
WRITE  (6,  o06) 
CCNTINu; 
'"     '    =GEOM 
=  2  5 
=  kRZk 
,  =\ 
3    =B 
4L='^HEA 

ATP        YCO    HAVE   SELECTED    THE    INLET    FILTER 
**FIRST    QOESTION,     UHAT    IS    THE    TOTAL    FACE 
FORMATC        DO    YCU    WAi.1     TO    USE    THE    DD563    TYPE 

♦  ITICN     (y/N)?«) 
FORMATCA  1) 
FORMAT]'        THE    CEER 

♦  '       DEFIHED    3Y    A      ? 

♦  •  DELTA     PRESSURE  . 

♦'       APPLIED    TO    PERFORSANCS    DATA    TO    3E    INPUT    BY 


.'/ 

AREA    GF    : 
ILTER    IN 


HE 

th: 


FILT 
:    DRY 


ES?  •  ) 

COND 


JATIHG    CHARACTERISTICS    OF    YOUR    FTLTS 
POWER   CURVE    FIT    JF    THE    FORM:'// 
5URE    =    COEFA    •     FACE    VELOCITY    **    COEF 
rnoMSMrc    ns'^i     to     ap    tvdtit     nv     "uv    n  ^■r 


FILTER     HILL    3E'/ 


THE    US 


'3     '// 
■R.  '/ 


91 


♦  «       **    HOW     lANY    CATA    POI.NTS    DO    YOU    HAVE     (1    TO    9)?'/ 
♦•  00    NOT    POl    IN    THE    POINT    (0.0,0.0).') 

FOEMATC        FACE    VELOCITY     ('.114')=?     (FEET    PER    SECOND 
FOFMATf'        DELTA    PHESSUFE     (',11,  M=?     (INCHES     H2G)') 
NO    MCRE    iUESTIGNS.  '  ) 
YOO     MOST    ZNTEB    A    LETTES    IN    THE    SKACKETS.') 


604 

FOFMAT 

oOb 

FOFMAT 

60b 

FORMAT 

607 

fof:iai 

SETURN 

END 

)•) 


92 


c 

c»**  • 

c 

c 

c 

c 


C  r  T'"  -r 

•«« •«« 

REr 
CC.1P0 

Filer 


... a     aOLTI-SAFFLZ    rYP2 


REr.      NAVS2A    INLET     DESIGN    HANOBOOX 
CC.IPOSirS    LOSS    CGEflCIEWT    BASED    JN 
FHICriGN     AND    A    SaCJEN     EXPANSION 


A    SaDDEN    CONTaACTION, 


601 

602 
603 

60U 

605 


SOcHO 
HEAL 
INiEG 
CIMZN 
WRITE 
CALL 
WHITE 
CALL 
WRITE 
CALL 
WRITE 
CALL 
■  RITE 
CALL 
WRITE 
CALL 
AO=CX 
A1=N* 
DH  =  2. 
P=  (CX 
SUuDE 
C1=0. 
FRICT 
C2=0. 
SJDDE 
C3=0. 
CC«PO 
C=C1«- 
WKI(1 
WKI 
WKP(1 
HKR 
WKE 
KR 


JTI 

wKa 

ER 
SIO 
(o. 
SEA 

lis 

SEJl 
(6, 
REA 

^^Ei 

ik 

*H 
G*H 
0*3 
-N* 

N  C 
114 

ION 
05* 
N  E 
47« 
SIT 
C2* 

=A 


26  (SORL.GECI,  WKI,  :?KE) 
,K,CX,a0,A1,DH,  R,C1  ,C2,C3,C,  N 
E  C  a , WKI 
2),6kR{4) 

) 


5) 


C 

«««««  tQ 

c 
c 
c 
c 


G1/J2.0*N1 

ONTEACTION 

1*((E/DH*0.1)««ia.au0  5)*(1.0-A1/AO) 


L/DH 

XPANSICN 

M  .0-M*G/CX)  ••2*0.02 
t    COEFICiENT 
C3 
EOM 
6 
0 
.0 


600       FCfirfA' 

FOHMA' 
F0F.1A' 

FORMA 

FORMA 

FORMA 
RETUR 
END 


=A0 


i:OU     HAVE    SELECTED    A    MJLTI-3AFFLE     TYPE    SILEHCEE.'/ 
EACH    HAFFLE     HAS    A    STREAMLINED    SHAPE.        IT    IS    THE    TYPE'/ 
aSED    IN    THE    INLETS    OF    THE    DDy63.'/ 

••FIRST    DaESTION,     WHAT    ZS    THE    GAP     BETWEEN    THE    3AFFLES7') 
WHAT    IS    *H2    THICKNESS    OF    THE    3AFFL2S?') 
WHAT    IS    THE    LENGTH    OF    THE    BAFFLES?') 

FFLES 


WHAT  IS  THE  DIMENSION  OF  THE  3A£ 


PAFALLEL  TO  THE  GAP 


T('   WHAT  IS  THE  DIMENSION  OF  THE  MAIN  DUCT  ACROSS  THE  GAPS?' 

T('   LAST  QOESTICN,  HOW  MANY  GAPS  AEZ  THERE?') 
N 


93 


c  Fim 

(;«««*»•«**« 

C  HEF. 

C  HASS 

c  saEP.o 

C  THE    F 

Q*m* «•*•••* 

SUSEO 

REAL 
INTEG 
DiaSN 
WRITE 


600 


MKI  ( 

1) 

'JKI 

2 

WKR 

'1 

WKE 

'2 

WKH 

'3 

WKE 

'4 

FORP 

!aT 

EETURl 
END 


YOJ    HAVE    SELECTED    THE    GAS    TDR3INE     flODULZ    AS     A     PART    OF'/ 
THE    CCOLING    FLOW     PASSAGE.        NO    OUZSTIOHS,     JOSX    HEEDED'/ 
TO    KNOW    BHEEE    YOO    tJANrSD    THE    flODJLE.  ') 


9U 


c 

c*«  «  • 

c 

c 

c 

c 

c**** 


10 
20 

30 


40 

50 
60 


FITTING 
«*«*««  «** 

RZF.  EXr 
PAGZS  53 
PRZLiaiN 

**«*««  **« 

SjSF.CUTI 
RZiL  WKH 
i:<TE3ZE 
CLIENSIC 
CiTA  ZTa 
WF.irS  (6 
HEAD  (5, 
I?  (  (ANS. 
REWIN 
WRITE 
GC  TO 
CONTINOE 
4F.EA  =  63. 
7FACT=1- 
CP5IME=3 
DV=0. 039 
IF  (ANS.E 
WRITE  (6 
CALL     FtA 

write:  (6 

CALL  RiA 
WRITE  (6 
CALL  ctk 
WRITE  (o 
READ  (3, 
IF  (  (ANS. 
REWIN 
W  a  ITE 
GC  TO 
CCNTINDE 
WRITE  (6 
CALL  PEA 
WRITE  (6 
CALL  PEA 
WRITE  (6 
CALL  REA 
WRITE  (6 
CALL  RiA 
FIMD  HI3 
VFACT=ST 
(ANS-E 
:  =  iST 
SD=SCr.T( 
I"  (SD.L^ 
CC NTINUE 
AHHA=TL« 


28:       WASTE    HEAT    RECCVERY     30ILZR  r 

«*«««««*•• «**««»««*«*«*««***«««**«*****««*««a*««*«*««c«««^ 

ENDED    30SFACE     HEAT    TRANSFER,     D.J.     KEENS    AND    A.D.    XRAJSS       C 
2-589  C 

ARY    DRAWINGS    ON    THE    RACES    SYSTEM  c 

C 
«*«««««•*««««*«**««*««««*««««•«*«««««««««««•«*«««««««««««/- 

NE    FIT29  (SORL.GEO.I,  WKI,  <-SH) 

,  D  V,  3  E,  ZT,  N,  rL,7FACT,  TEST,  C?  RIME,  AREA 

SORL,GECM,WKI -ANS,  STAG,  INLINE,  YES    NO 

N     WKI  (2)  ,,.'KR(  4) 

G/'S* //INLINE/' IV,  YES/'Y'/,Na/'N'/ 

.600) 

o01,Z:NC  =  2J,ZaR  =  20)     ANS 

EQ.iSS)  .OR. (ANS. ZQ.NO))     GO    TO    3  0 

D     5 


|6,602) 


75 

35095 

5.  02027 

37 

Q.  YZS)     GO    TO    30 

,603) 

DR     (DV,5) 

,60ti) 

DR     (DE,5)   ■ 

,b03) 

Dfi     (ST, 5) 

,606) 

dO  1,ZND=50,EHH=50) 


ANS 


•STAG) .OR. (ANS. £Q. INLINE) )     GC    TO    60 


(0,602) 


iU^ 


D     3 

0 

0 

.607) 

,b08) 

DR     (SL,S) 

.60^) 

DR    iTL,5) 

,6ld|  ' 

DR     (XL, 5) 

HEST    VEICCITY    OF    THE    TU3E    BANK 

/  (ST-DE) 

"     INLINE)     GO    TO    70 


♦  DE)  /2.0 
**2*  (S 

T  X 

"(DV/ST)  •*0.U)  •  (  (SL/ST)  ••0.6)  *SL*N/DV 


SL**2*  (ST/2.0)  •*2) 
TEST)     7FACT=3T/(2.0«  (SD-DE)  ) 


I 


HAVE    SELECTED    A    WASTE    HEAT    BOILER.       DC    YGD    WANT 
TKE_FEOPOSZD    RACER    DESIGN    DEVELOPED    3Y    SOLAR     '/ 


:ov 


TOKfllNES     (Y/N)  ?'  ) 

YOU  MUST  aSE  A  LETTER  IN  THE  BRACKETS. 
A  N0M3EH  OF  OQSSTIONS  ARE  fiZQ'JIRED  ABO 
aONDLE    GEOMETRY    TO    OBTAIN    LOSS    COEFFICIENTS.'/ 


■JT    TH: 


:aBEv 


95 


604       FORflAT( 


605       FCE:3AT( 


FOEMAT 
FCRUAl 
FOflMAI 


606 
607 

603 


60  9 
610 


FOEHAT 
FORMAT 
£HTDEN 
END 


OSE 

**Fr 

CI  A  a 

GUES 

WHAT 

FINN 

i^NOW 

GUES 

WHAT 

TUBE 

ARE 

HOW 

WHAT 

FHOa 

PLAN 

»HAT 

HHAT 


E    CONSIST ZHT    JNITS 


EST  3UE 
ElZfi? 
S  FOR  T 
IS  THE 
EC  T'JES 
,  1.4  T 

IS    THE 

CSIJTER 

THE    103 

.1ANY    Ta 

IS    TEE 

THE    ?L 

E    OF    TH 

IS    THE 

IS    THE 


STION,    WHA^    IS     -HE    VOLUaETRIC    HTORAOLIC    •/ 

IF    YOU    00    NOT    KNOW    O.OUO     FEET    IS    A    3000'/ 

HIS    APPLICATION.  •) 
DIA.1ZTZR    OR     EQUIVALENT    DIA.1ETER    OF    A     '/ 
IN    THE    3UN0LE     (FiETl?        IF    YCJ    DC     NOT'/ 

LIES    THE    3ARE    TOBE    DIAMETER    IS    A    GOOD'/ 


TyBS_S?ACING_IN_A_3ANK    OF    TOBES     (FEET)?'/ 

(S/I)     ?•) 


LINE    TO    TaSE    CENTEHLI N E. ' ) 

INLIN 


E    3ANKS    STAGGERED    OR 

BE    3ANK3    kRZ    THERE    ?') 
DISTANCE    BETWEEN    THE    TOBE    3ANKS    ? •/ 

ANE    OF    A    TUBE    CSNTZHLINE    TO    TOBE    CENTERLINE'/ 

E    NEXT    BANK.  ') 
D'JCT    DIHENSION    PAfiALLEL    TO    THE    TUBES     ?•) 
DOCT    DIMENSION    ACROSS    THE    TUBES    ?') 


96 


C 

c**«  * 

c 

c 

c 

c 


600 


c 

c***« 

c 

c 

c 

c 


601 
602 


FIiriMG 
*•«•«• *«« 

SEF.  ASH 
THIS  3H3 
EXHAUST 

F  L  C  W     IF 

SOEFOaTI 
REAL  -iKH 
INTEGER 
DISENSIO 
WRITE  (6, 
Cill  SEA 
HKI  {  11  =G 
WKI  2  =2 
WKH  (  1 ) -k 
WKS  i2)=0 
WK?.  (2)  =0 
HKH  3)=1 
WKS(4l =A 
FCHMATC 

•  • 

St  TORN 
ENS 
«««««*  **« 

FITTING 

•  •«  *««•*« 

NO  REFER 
THCSE  FI 
COEFICIE 
VELOCITY 

•  •«•««  a«« 

S-JEfiOUTI 
REAL  WKR 
INTEGER 
d.-IENSIO 
«HITE  (6, 
CALL  ?EA 
WRITE  (b, 
CALL  r.EA 
WRITE  (6, 
CALL     ?EA 


I  *  *«  « 

1 9  : 

r«**  « 

,AE  H 
>  ID  A 
JRANC 

:t  go 

>«*«  « 

IE  FI 
A  RE  A 
CRL, 
*KI 
0  0) 
R  (AR 
CM 


«•««««**«•«**«*  «*«*«««««***«*««»*«««««*««(^ 


GEO 
(2) 


a,3Ki 

,  i<XH  (4) 


EA,5) 


EA 


0 

lEA 
If  0  0 


HAVE    SELECTED    AN    A3nJ?T 


:he  atmosphere,  v 


KKI 
WKR 
WK  fl 


1)=G 
2)  =3 
1)=A 
2    =0 


WKR    3)=C 

WKR    4i =AC 

ooo     format;" 


•*JUST    ONE     QUESTION,     WHAT    IS    THE    AREA    OF    THE     EXIT    PLANE? 


30  :       F: 

ENCE. 
TTINGS 
NT    FOR 
IS    COi 

«*««««! 

NE    FIT, 
,  A  I,  C,  i 

Sorl.g: 

N     WKI(. 
600) 
DR  (AI 
6  0  1) 

o0  2) 
DR  (AO, 
EOrt 
3 
I 
0 


WKI 
iKR  (3) 


5) 

) 

5) 


■OFflAT( 


POEMAI( 

GSiaEN 
END 


SINC 

FOR 
THIS 
OF  A 
••FI 
THE 
A  VS 
WHAT 
VELO 
? 
LAST 


E  THE 
WHICH 

CPTIO 

FITTI 
EST  iU 
F ITT  IN 
LOCITY 

IS  TH 
CITY  ? 
=CO^RH 

WUEST 


PROGRAM    IS    LIMITED     IN    THE    NUMBER    OF     FITIINGS'/ 
IT    CAN    PHOOaCE    PERFORMANCE    C  H  AH  ACT  EF  1ST  ICS,  '  / 
N     ALLOWS    THE    JSER    TO    INPUT    C HAR ACTE EISTICS' / 
NG    NCT    LISTED. •/ 

ESTICN,     HHAT    IS    THE    CHARACTERISTIC     AREA    OF'/ 
3?       THROUGH    THIS    AREA    THE    FLOW    PRODUCES'' 

USED    TO    CALCULATE    THE     VELOCITY    PRESSORS.') 
E     MOLTIPIER,    CO,     USED    IN    THE'/ 
RSSSURE    EXPSZSSION: •// 
0*  (VELOCITY*^!)/ (2.  O^GC)      ?     ') 

'  -      --      ~^Z     OJ'^f"''"       »CFl'>«l 


ION,     WHAT    IS    Ti 


JJTLET    AREA?') 


C  XAELE    INTEEPOLATIOSJ    SaBKOUTI.VZ:       PRODUCES    7ALUE    F  F.O  a    2-D    TAELZ  C 

C  C 

C  INE'JT    A    ONE    DiaEMSIONAL    ARP.Ar    "T",     CONTAINING    THE    FOLLOWING  C 

C  INFOHrtAnON:     Na«BER    OF    X'S,     .■JUaSEH    OF    Y'S,     THE    X' S.    THE    Y' S ,     THE  C 

C  TAELZ    STARTING    '^ITH    THE    S-'IALLEST    X-'f    VALJE     INPUT    3Y    ROW  c 

C  IMCr,  EASING    X     VALUES    WITH    ROWS    I.fPUT    WITH    INCP.EASING    T    VALUES.  C 

SUBROaTINE    TABLE  (T,  X,  XOUT,?F) 
C  INEUT;    T,X,  OUTPU T: aGUT , F ? 

DI.1ENSI0N    T(20  0)  ,X  (2)  ,NN  (2)  ,X0nT(2)  ,F  (100) 

REAL    NEV 

INTEGER    V(2)  ,ZINIT(2)  ,riNC(2) 

NXI=1 

NN  (1) =3 

NN    2    =3 

10  =  3' 

NX  1=3 

M=1 
C  LOOP    DETERMINES    STARTING    POINTS    IH    T    ARRAY    FOR    INTERPOLATION 

DO    20    1=1,2 

K=NXI+T(I1_-1 

IF  (X  (I).  GE.T(NXI).ANO.X  (I)  .LE. T(K)  )     GO    TO    32 
C  IF    X    CUT    OF    HANGi,    INF0E.1    USER    xHAT    TABLE    I NTE  EPO  lATIC  N    IS    NOT 

C  POSSIBLE. 

XOUT(I)=0 

GO    TO    999 
32    XO0T(I)  =  1 

J=NXI 
2  1    L=  (J*K)/2 

IF  (  (X  (I) -T  (J)  )  ♦(X(I) -KD)  .GT.O.)     GO    TO    23 

K=L 

GO    TO    24 

23  J  =  L 

24  IF  (  (K-J)  .  GT.  1)     GO    TO    21 


IF  (  (K-J)  .  GT 
L=K-NN(I)  /2 
IF  (L.lt.  Til 


IF  [L.lt.  NXI)     GC    TO    25 
K=NXI*T(IJ -HN (I) 
I-(L.GT.  K)     L=K 
GO    TO    26 

25  L=NXI 

26  I2  =  I'2*TCI)  ♦(L-NXI)  *M 

IF  (I.  NE.  1)     IA  =  NN(I) 


YINC  (:)  =  a*  (T  (I)-iA 
XINIT  (I)  =L 
IiXI=NXH-T  (I) 


!1='**T  (I) 
20    CCNTINOE 


V(2)  =L 
L=NN  (1) 
!iXX=SN(1) 


IKTZRPdLiTE    IN    FIRST    DiaENSION 
Y(1)  =NXX 
DO     1  1    J=1 ,NXX 

F(J)=NEV  (X  (1)  ,T,XINIT  (1)  ,T-I2,L) 
INTERPOLATE    IN    SECOND    DIMENSION 
11     Ii=IC+YINC  (1) 


i;=ic*y: 
a=NN  (1) 

F(H*V(2^.        _ 
FF  =  F  (M+V  (2)) 

TEN 


)  =NE7  (X(2)  ,T,  XINIT(2)  ,F,  1,3) 


FETUl 
999       FF=1000.0 

RETURN 

END 
C  FUNCTION    TO    RETURN    INTERrOLATZD    VALUE    FROM     TABLE 

FUNCTION     NE7  (X,AX,NX,  AY,NY,.S) 
C  FUNCTION     NEV     PERF0E.1S     AN    "N"    POINT    INTERPOL  ATICS     FOR 

C  STARTING     AT    ABSCISSA     ARRAY    AX  (NX)      AND    ORDINATE    ARRAY 


QP 


10 


20 


AY 

DI 
RE 
DO 

l\ 
DC 
NJ 
DO 
KI 

NE 
RE 
EN 


(NY>  WITH  THE  INTERPOLATED  VALUE  RETUFNED  IN  NEV 

.-ienSion  ax  (1)  ,Ay  (i)  ,f  (loo) 

AL  »JE7 

10  J=  1,  N 
J)  =AY(NY*J-1) 
=  <l-1 

20  J=  1  ,  N1 
=  N-J 

20  1=  1  ,  NJ 
=NX*I-1 

^l=(fil*1)-?  (I)  )  *(^-AX  (KI)  )/(AX  (KI*J)-AX  (KI))*F  (I) 
NTINOE 
V=F  jl) 
TORN 
D 


OO 


c 
c 
c 
c 
c 
c 


10 
12 
20 

30 

40 
dOO 

601 

602 
603 


LCAD    S'JBROailNE:       PLACES    FITTING    ISFCRaiTIOU    IN    A    STORAGE    A  f . 

SJEROOTINE    ALSC    CHECKS    FOR    AREA    CONTINUITlf     IN    A    3HANCH.       IF 
THE    PRESENT    FITTING    AND    THE    LAST    FITTING    30     NCT    .1ATCH    A    :TARN 
IS    GIVEN    TO    TH£    JSSH.        AN    OPPORTUNITY    TO    NOT    LCAJ    THE    PITTIN 
IS    PHOVIOEC    AND    THE    aSER    IS    RETJSWEJ    TO    THE     .'!ENU. 

SaBRO  UTI ^Z    LO  A  Djn  tGSO  a , « KI , wK  R  J  SO  R  KI , »G  RKR ) 

IN 


t  mm  w  mmm  w  9  mm  M  w  m  wm  m9^^  9^  ^  ^  9  ^  9  m  m  m  ^m  m  m  ^  ^  ■*  m  ^ 

[BRO  UTI :»  E    LO  A  D  (fl ,  GEO  a  ,  «  KI  ,  wK  R  ,  SO  R  KI  ,  V 

:AL    WKR.aORKR.'IESTE,  LASIA,THI3A 
xi-ITEGZR    h,  WKI,iiCRKI,  A  NS,  YES  ,  NO,  GEOil ,  TESTI,  TYPE  ,  LAST  YP 
DIMENSION     WKI  f  2)  ,WKa  (  3)  ,HORkl  (2  0  0,2)  ,HORKrt  (20  0,u) 
DATA     YES,NO/«  Y' ,'n'/ 


**«««(; 

RAY 

c 

c 

THE 

c 

ING 

c 

G 

c 

c 

••«• *Q 

IF  (?!.  EQ.  1)     GO     TO    10 
TYEE=40RXI  (H,2) 
LAiIYP  =  WOEKI  (;i-1,2) 

SOME    FITTINGS     MAY    NOT    EXHIBIT    AREA    CONTINUITY 
IF  (TYPE. EQ. 13)     GO    TO     10 
IF  (TYPE.  EQ.15i     GO    TO     10 
IF  (LASTYP.  SQ.23)     GO    TO    10 
IF    TYPE.Ea.23)     GO    TO     10 
IF  (LASTYP.  SO. 25)     GO    TO    10 
IF    TYPE. EQ. 25)     GO    TO     10 
IF    LASTYP. EO. 27)     GO    TO    10 
IF    TYPE.  EQ  .27l_    GO    TO     10 
I"    LASTYP- EQ. 23)     GO    TO    10 
IF  (TYPE.  EC  .29)     GO    TO     10 

■  TEST    THE     INTEHVAL    BETWEEN    FITTING    ID    NUMBERS 
TESTI  =  HKI  (2)  -ffCRKir:-- 1,  1) 
CHECK    TO    SEE     IF    FI:JtING    13    THE    START    OF    A    BRANCH 


IF  [TESTI. GT.  1)     GO 
LAST    AREA,    EXIT 


:ng 


TO     10 
•ROM    Fi: 
LASTA=fJDRKR(M-1,U) 
IF  (LASTYP.  EQ.  7)     LA3TA=WCRKR  (M-1,  1) 
THIS    AREA,     ENTRY    TO    FITTING 
THISA  =  WKR  (1) 

TESTR=ABS]THISA-LASTA)_/TaiSA 
IF  (lESTR.LT.  0.  05)     GO    TO     10 

WRITE  (6.600) 
WRITE     lo.60^) 

READ     (5,602,i;ND  =  12,EH  R=12)_    ANS 
IF     ((ANS.  EG- YES). OR.  (ANS. EQ. NO)  )     GO    TO 

REWIND     5 


20 


WRITE     (6,603) 
TD     10 


GO 
CCNTINUE 
IF  (ANS.E 
GECM= 
M  =  M-  1 
GC    TO 
tJORKI  (M,  1 
WGBKI    M, 2 
WOPKP  (M,  1 
WCRKH    M,2 
WGRKR  (M,  3 
HC  SKR  (M,  ■♦ 
CCNTINa: 


).  YES) 

;ecm-i 

UO 
=HKI 
=WKI 
=HKR 
=  WKR 
=HKR 
=WKH 


GO    TO     30 


CALL    FRTCMSC  CIESCRN     ') 

FCRMAT(//'     •*•    SAENING,     AREA    CONTINUITY    BETWEEN    THIS    FITTING    AND'/ 
♦  '  LAST    FITTING    IS    OFF    BY    AT    LEAST     FI7E    PERCENT.'//) 

FOEMATC        DO     YCU    WANT    TO    ENTER    THIS    FITTING      (Y/N)?') 
FORMAT   A1) 

FORMAT    '        YOU    MUST    ENTER    A    LETTER    INDICATED    IN    THE    BRACKETS.') 
RETURN 
END 


C  DUCI    DATA     FILE    CJTP'JT    SUSHOariNE                                                                                           C 

C  C 

C  MRITES    THE    SYSTEM    ARRAYS    '^ORKI    AND    yOEKR    TD    THE    D  OC I    OATA    FILE.       C 

C  A:.10WS    the    'JSER    to    serialize    each    file    CREATED.                                                   c 

C  •WAENIN3*     WRITES    OVER    OLD    FILES,     SAVE    THEM     aNDEH    A    LIFSP.SHT    MA;«E.C 

SiJ3EO0TINE    5  0.1CUT  («OfiKI,  W0RKR,.1) 

REAL     WCSKR 

IiNIEGER    WOEKI,  f  ,SERIAL 

DIMENSION     BORKI  (200,2)  ,BORK a (20  0,4) 

WRITE     (b.eOQ) 

CALL    a£A!)IiSERIAL,5) 

WRITE     (3,601)      SEEIAL 

WRITS    ]3.602        M 

^n    IT      "I     ^ 

5RITE     '(3,603)     I,*ORKI  (I,  1)  .KORXI  (1,2)  ,30RKR  (I,  1)  ,WOaKa  (1,2)  , 

♦  MORKH  (1,3)  ,W6£KH  (I,  4) 
10          CCNTINOE 

REWIND    3 

600  FORMAT  (•        WHAT    SERIAL    NUMBER    HOOLD    YOU    LIKE    TO    GIVE    THIS    DOCT    DATA 

♦  FILE?'/'       YOU    MAY    USE    UP    TO    A    SIX    DIGIT    INTEGER     NOHBEfi.') 

601  F0RMAT(I6) 

602  FORMAT    13 

603  FCEnAT(I3,3X,I6,3X,I2,3X,F10.4,3X,F10.4,3X,F10.4,3X,F10.4) 
EETURN 

END 
C**« **«*•*«•**•*«*««**«*•«««*•«•*««*««*•««««««*««**«««« •*«««««*«««*««**c 
C  REAL     NUMBER    REA:    S'JSaCUTINE:     FREE    FORMAT  C 

C  PREVENTS     THE     INADVERTENT    ENTRY    OP    NULL    DATA     (HITTING    THE    P.ETU2N       C 

C  XEY    WITH     NO    ENTRY)     AND    INCORRECT    DATA,     THIS    ROUTINE    IS     USED.  C 

C  IT    ALLOWS     FREE    FORMAT     INrUT.       TWO    NULLS    KILLS    THE    PROGRAM.  C 

SUEROUTINE    REALS     (ANSR,FD) 

REAL    ANSR 

INTEGER    COUNT, IE 

COCNT=0 
10  CCNTINUS 

CCu;!T=C0aNT*1 

IF     (COUNT. LT. 3)     GO    TO     20 

CALL    FRTCMS     ('CLRSCHN     ') 

WRITE  (6-600) 

GO    TO    40 
20  CONTINUE 

READ     (FD,*,SND=30, ERfi=30)     ANSfi 

RETURN 
30  REWIND    FD 

WRITE  (6,  oOl) 

GO  TO  10 
40     CONTINUE 

STC? 

600  FORMAT     (////'        PROGRAM    KILLED    -    TWO    NOLL    STRINGS     ENTERED!'/) 

601  FORMAT    |'       WARNING:        NULL    STRI^JGS    ARE    NOT    ALLOWED,    ENTEP.    A    NUMERIC 
♦AL    VALUE. ' ) 

END 


101 


CC3NT=0 

10         cc:.'ti;jde; 

ccunt=count* 1 

i?    (count- -t. 3)  go  to   20 

call   jhtcms   ('clhschn    ') 

SRITZ  (6,  600) 

GG    TO    40 
20  CONTINUE 

EZAD     (FD,  *,ZND=30,Eaa=30)     ANSI 

BETOHN 
30  HEBIND    FD 

WRITE  (6.60  1) 

GO    TO     10 
UO  CONTINUE 

STOP 
600  F0F!1AT    (////'        EROGRAM    KILLED    -    TWO    NULL    STRINGS    ENISF.SD!'/) 

60  1  FORMAT    ]•       WARNING:        NULL    STRINGS    ARE    NOT    ALLOWED,    ENTER    A    NOaEFIC 

♦AL    7ALJi. ') 

EN  D 

C              OiJEPATING    CONDITION'S     INPUT    SUBROaTINE :       TE.IP,     PRESS,    nU.IIDIT'/  C 

C               SUEROOTINE    TO    INPUT    THE    FOLLOWING    PAEA.1ETERS:  C 

C                       AMBIENT    TE.1PERATUE  £     (DEGEEES    ?)  C 

C                       A.1EIENT    PRESSURE     (PSIA)  C 

C                       RELATIVE    HO^-IDITY      (GRAINS    PEE    POUND    .1ASS     DRY    AIR)  C 

C  C 

C         THE    PR0GRA.1    COULD    3E    MODIFIED    10    ACCEPT    RELATIVE    HU;iIDITY     (%)     AND  C 

C         CONVERT    IT    TO    GRAINS    REQUIRED    FOR    JSE    LATER    IN    THE     PROGFA.M.       THAT  C 

C  MCDIFICATION  SHOULD  3E  ACCCMFLISHED  HERE.  C 
c****«****«* ««««**«***«*«*«»•***«*«««««**««•«« *«*«***««***«*«**««««««**c 

SUcRC'JTINE    OPCCNC(T0,  ?0,  HO:<ID) 

REAL    T0,?O.HOrtID 

WRITE  (6,o00;^ 


COND 


102 


c 
c 
c 
c 


10 

20 


?c 

DC 
FC 
A 
«  «•* 

SJ 
HZ 
WS 
CA 
i<R 
CA 
IF 


30 

HO 

600 

601 
602 

d03 


<=£?. 
ES 

5  r 

CIF 
*«* 

EPO 


CO 
HP 
IF 
WR 
GO 

cc 

CA 

FO 

FO 

FO 

♦  CR 

"0 

♦ 


ITE 
II 
((N 

«R 
GO 
NT  I 
T?  = 
(HP 
ITE 
TC 
NTI 
11 
H."5A 

H.1A 

e;ia 

SEP 
R.«1A 


*«« 
?3 
A    ? 
HE 

««« 
UTI 
HP, 

ncA 

SEA 
?T. 
ITE 
TO 
NJE 
(51 
.LT 

'15 

NOE 
FRX. 

T(; 

CUE 


«• «««  * 
INT  IN 
RELI-II 
J?  EBAT 
EST  OP 
«««««« 

NE  ?HR 
NPT, ?0 
,600) 
5r  (HP, 
,601) 
OR  (NPT 
GE.120 
^6,60 

77. 


PTIHP.NPT^TO.PO) 
,I(3,r2C,Plc,DEL.A,rHETA,HPTP 

5) 


3) 


ND.  (NPT.LE. 3600. 0)  )     GO     TO    30 


5-7.0527*10)  ♦  (3.  3275-0  .  00  12* TO)  'NP: 
.HPT?)     GO    TO     a() 
o0  2) 


aS('CIPSCEN     ') 
INPJT    THE    POWER    SETTING     YOU    DESIRE.'/ 
••«HAT    IS    THE    HORSEPCnEH?' )_ 
**WHAI    IS    THE    PO'WER    TaSSINc    SPEED      (F.PM) 

1ANC" 


TC 


iND 


[URN 


HORSEPOWER     IS    NOT    ON    THE    PEEFORi; 

£•  '1 

POWER    T0R3IHE    RP.1    I-S    NOT    REiSCNiBLE. 

1200-   TO    3600    RP3.       aS-iNTES.  '  ) 


?') 

.UF,     PICK    A 


LOWER 
SHCaiD    BE'/ 


103 


c*»* 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ElfGINE   SUBRCOTINE:    COflPJIZS    JPEEariNG    POINT    ?CH    GIVEN    CGNDIIION: 


EZF.     7L.^2500     .1AEINE    3  AS    T'JEfllNE    BZRrC'a'AkbKZ    DAIA.    PREPARED    S'lT 
GENERAL    ELECTRIC    COMPANY    iARINS    AND    INOaSTRIAL    PRCJECTS 
DEPART;'.E  NT,     Na;iEER    :il  D-:D-2500-3,     RZVIJED    N0VZM3Z=     1S73. 
ENGINE   PERFORMANCE    IS     REPRODUCED    3 'if    STORING     A    STA'-.'DARD    CONDITION 
OPERATING    MA?     AND    APPLYING    CORRECTIONS     rOR    OFT-STANDARD 
OPERATING    CONDITIONS.        MAIN"    INTZHE3I    IS    TO    OBTAIN    ;i2,"8,    AND    TS. 
SFC,T£4,AND    NG    ARZ    ALSO    PROVIDED. 


20 


10 

20 
30 


c 
c 

c 
c 
c 
c 

SJBROaTINE    £NGIN£(INLCSS,ZXLOSS,rO,PO,.iUMID,aH?,  NPT,32C,a8C, 

♦  P3C,T3C,SFC,r54C,NGC,OFF) 

REAL    TO,  ?0, HUM  ID.I  NLD  S5,  S  :(L0SS,3HP,NPT,T2C,?2C  .DELTA,  THETA.EHPTP, 

♦  SHPE- N?TE,w2s,;f-8S,T3S,P8S,  SFCS,  I5a5,NGS,NGC,y2C,W8C,T3C,PdC  , 

♦  SFC,T5'*C 
INTEGEH    OF? 
:2C=T0*459.67 
c2C=P0 

DELTA    IS    THE    PRESSaSS    CORECTION.    THETA    THE    TEMPERATORE    CORRECTION 
INLET    AND     EXHAUST    LOSSES    ARE    A    SEPARATE    COaEZCTION 
D£ITA=P2C/ia. 696 
T:IEIA  =  T2C/518.  67 

CORRECT    DESIRED    BHP, N PT    TO    STANDARD    CONDITIONS,     INPUT    TO    ENGINE. 

BHPE=3HP/{D2LTA*SQRI  (THETA)  ) 

NPTE=NPT/SORT  rlHETA) 

CALL    L!12  50<3  (3HEE,N?TE,'^2S,:J8S,T3S  ,?8S,SFC3,  T5US,  NGS,OFF) 

IF  (OFF.GT.O)     GC    TO    23 

CORRECT    STANDAEL    ENGINE    PARAMETERS    TO    OPERATING    CONDITIONS. 

NGC=CFN3  ( N GS. T H FT A, I N LOS S,EXLOS 3, HUM  ID) 
W2C  =  CFW(n2S,  .H ETA, DELTA, IN  LOSS, ZXLOSS,HUniD, NGC) 
SSC  =  Cr'^]W83, THETA, DELTA,  INLOSS,  EXLCS  S  -  HUMID  ,  NGC 
T8C=CFTg ( T3S, T RET A, I N LOS S, EXLCS 3, nUM ID, NGC) 
pec=CFP8  (P8S,  DELTA,  EX  LOSS) 
S?C=SFCS 

T5  4C  =  CFT5U  (T 5 4 5, THETA , I NLOSS, EXLGS3 , HO  MID,  NGC) 
CONTINUE 
RETURN 
END 

FONCTICM    TO    CORRECT   GAS    GENERATOR    SPEED 
FUNCTION    CFNG  (NG.IHET  A,i:iL0SS,ZXL0S3,HUMID) 
REAL    THETA,INLC£S,ZXLCSS,HnaiD,.JG,  AD£:LPI,ADEI?E,  ADELH, 
CF.CFNG 


IF  (NGC-LE.  9100.0)  GO  TO  10 
IFJNGC.GZ.  9200.0)  GC  TO  20 
AD£LPI=0.0  0073  2f (NGC- 9100.0) *0.  0  3 


(NGC- 9100.0) *0. 3  3  05d7/130.0 
GO    TC    30 
ADZLP  1=0. 000733 
GC    TC    30 
ADELPI=-0.0013 
CONTINUE 
ADEL?E=3. 00035 
ADELH=-3. 002200/100.3 
CF=(1.0«-AD£LPI*INL0SS)« 

♦  iQRT(THETA) 
CFNG=NG»CF 
RETURN 

END 

FUNCTION    TO    CORRECT    MASS    FLOW    HATE 

FUNCTION    CFW     («,  TH £TA -  DELIA , INLOSS, Z XLO SS ,H 0  MI C, NGCI 

REAL    W.IHETA,  DELTA  ,  IN  LOSS  ,  EaLCS  3  ,  HUMID,  NGC  ,  A  DELPHI,  A  DEL 

♦  C  J"    C  F  W 

:?  (NGC.Ie.  9100  .  3)  GO  TO  13 
:?  (NGC.GE.  92  30  .3)  GO  TO  20 
AD£L?I=-0. 000 75- (NGC- 9100.0) *0. 003 3 17/1 30.0 


1.0  +  .\DEL?E»ZXLOSS)  *  ( 1 .  0*  A  DELH*  H  UMID)  * 


?E, ADELH, 


1  OLx 


GO    ro    30 

10 

AOEL?I=-0. 00075 

GC    TO    30 

20 

ADEL?I=-0. 00 16o7 

30 

CONTINUE 

Au£LrZ=0.  000475 

AD  EL H =-0.0 05 4 2 9/ 10 0.0 
CF=  (1.0*  AD£1?I*ISLCSS) 

♦         DEITA/SQRT  (THETA) 

C?«=W*CF 

EETaRM 

END 

FINCTIGS    TO    COPBECT    T3 

10 

20 

30 


10 

20 
30 


FUNCTION    CFT3 (T8- THET A, IMLCS3 , E XLOSS , HU HID , NGC) 

EEAI    T8,  THETA,  INLCSS,  EXL  OS  S,duMI  J  ,  :^GC,  ADELP  I,  AEE  LP£  ,  AD  E  LH, 


:F  (NGC-LE.  3100.0)     GO     TO     10 
:r  (NGC. GE.  9200.0)     GO    TO    20 

LDELP  1=0.  0  010  5*  (NGC- 9  100.0)  • 


))  'O. 001242/100. 0 


♦  CF,  CFT3 

IF  (NGC' 

IF 

AI 

GO    TO    30 

ADEL? 1=0. 00105 

GO    TO    30 

AD£LPI=0.  002292 

CC  NTINOE 

ADEL?E=0.  00095 

AD  EL H=-0.  0  00643/100.0 

CF=(1.C«-AD£LPI*INLOSS)*(1.0*ADEL?E*EXLOSS)«  ( 1  .  0*  ADELH*  HUMID)  • 
I-  TSETA 

CFT8=T9«CF 

FETuRN 

e;;c 

function  to  c05eect  ?8 

function   cf?9  (?e, delta, exloss) 

SEAL     fa,  DELTA,  EXLCS3,  C^.CFPa 
CF=  (1  .0+-0.  00  24  1*EXL0SS)  *  DELTA 
CF?8=?3*C? 
5ETURN 
END 

FUNCTION     TC    COPEECT    T5a 

FUNCTION    CFT5'*  (T54  ,  T  H  ET  A  ,  I  NLO  S3  ,  Z  XLO  SS  ,  HUMID.  NGC) 
F.EAL    :54,THETA,INL0SS  ,EXLoS3  ,  .-lU.lID  ,  ;*GC,  ADEL  ?I,  ADi:  12  E,  AD  ELH, 
»■  CF,CFT54 

I?  (NGC. LZ.  9100.0)     GO     TO     10 
IF  (NGC. GZ.  9200.0)     GO    TC    20 
AD tL? 1=0.  0  00 95 6* (NGC- 9100. 0)«0. 001/100. 0 
GO    TO    30 
ADEL?I=0.  000956 
GO    TO    30 
ADEL?I=0.  001958 
CONTINUE 
ADEL?E=0. 00056 
AD£LH=-0. 002057/100.3 
Cr=(1.0*ADEL?I«INLOS5)«  ( 1 .  0*  ADEL?  E*EXL0S3)  *  {1.0*ACELH*HU.1ID)« 


FETUS N 
END 


105 


C               L.12500    ENGINE    TAaaiATICN    OF    ?£ErOR.1ANCE    DATA    FCS    STi.     CG:JOirij:iS  C 

c  c 

C              THIS    DATA     IS    TAKEN    FROM    CiSE    NaMBEHS    536    TO    637    PAGES    ITI-ia'o  C 

C               CF    THE    3E     ;1AK0AL.       EXTRAPOLATED    VALJES    PROVIDED    3Y    IHE    AJTHOS  C 

C  USING  GRAPHICAL  TECHNIQUES.  C 
Q^m* ****** m ****• *9  *******************************  ****** •******•****>*»  *Q 
SaBF.O'JTINE    LN2E00i3H?  ,NPT,12,H8,T3,P8,SFC,  T54,  ;iG,CFF) 


SEAL    3HP,NPT,a2,wa,r8 ,?3,SFC, :5  4,NG 
►  «2I, W3I,T3T,P8T, SrCT,T54T, MGT 

INTEGER    OFF.XOCT 


DIMENSION     Xi2)  ,X0aTt2)  ,W2T  (04)  ,  W3T(6U)  ,T3T(d4)  ,?3T(64)  ,SFCT  (o4)  , 

TSaT  (64)  ,N3  i  (64) 
DATA    W2r/    8.0,6.0- 

lOOO.j'  3  00  0.  C,5 000.  0, 10000.0-  1500  J- 0,  17500.0,20000.0,22500.0, 

1 20 0.0,  130  0. C-2400.  0,3 00 0.0. 3300. J. 3o 00.0- 

41.  3,67.6,87.5,  121.  2, 143.0,  158.0,  169. J, 175.0, 

40.2,6 1. 6, 77.2,105. 6,127.5- 137.6- 146. 4.15  6.0, 

43. 3,0 1.2, 74, o;99. 7, 117. 5, 125. 7, 133. 0,141. 9, 

-.-.4,  62.  7,  73. a, 96. 4,  113.  3, 120. 9,  127. 8,  134.  3, 

5!. 7, 64, 5, 75. 1,9  0.4, 112. 4,  119. 7, 126. 4, 132. 9, 

54.  7*6  6.4;  76.0,  96.  7,  112.2,  119.2,12  5.5,13  1  .  6/ 
DATA     HSr/    3.0,6.0. 

100  0.0,3  00  0.  0,5000.  0, 1 0000 . 0  -  15 000. 0 , 17500 . 0  ,  20 00 0. 0 , 2250 0. 0, 

120  0.0. 1800. G.2400. 0,3000. 0,j300.0.3o 00.0, 

41.  9, 67.  7,  87. 2,1  22.  0,  149. 8,  160, 0,172.  5,  18  1.0, 

40.2,6  1.  3,  77.4,  106.  1.123.5,  13  8.  9.  1^8.  J- 1  5  8.0, 
"      43.  4,6  1.  3,  74. .2,99.  1  ,1  18.3,  12  6.  7,1  3  4.  5,,1 4  3.3, 

40.5,6  2. 9,74.  1,96.9 ,  114.  1, 12  1. 3, 128.}, 13  5. 6, 

51.3,64.3,  75.4,96.9,113.2,120.0,127.5,134.1, 

54. 9.50.6,77.0.97.3, 1 1 3.  1 ,  120 . 2,  1  26. 6 , 13 2 . 9/ 

"^  DT    '       3       "^       ^      Q 

0)5600.  0, 10  00  0. 0-  15  0  00.0,  175  0  0.0,2  0  00  0.0,2250  0. 0, 
C,  2400.  0,3 00 0.0, 3300. 0,3o 00.0 


DATA    T&T/    3'.  0 

♦  1000.0,3000 

♦  1200.0-1300 
+  1144.,  1  153. 

♦  1185.,  1  1  53. 

♦  1234.,  1196. 

♦  1281.,  1253. 
+  130o., 1287. 

♦  1334., 1321. 
DATA     ?8T/     3.0 

♦  1000.0,3000 

♦  1200-0.1300 

♦  14.70,14.72 
+  14.70,14.71 

♦  14.  71,   14.71 

♦  14.71,14.72 

♦  14.71,  14.72 
+       14.71.14.72 

DATA    SFCT/    9 


DA 


1^9o., 13§5., 103  2. , 1755; , 1877.; 2000. 
1161. ,1 25 3. ,1374. ,1431. ,1499. ,15 60, 
1191., 1214.,  123  3. , 1324., 1364.  , 13  93.; 
12  42., 124  3., 1230. , 1303. , 1329.  ,  1352.  , 
1272., 1263., 1296. ,  13  12., 1335. ,  13  56.  , 
1304., 1 298., 1320. ,1332. , 1347.  ,  1366./ 

O) 5 500.  0,100  0  0. 0, 15  000,0.  175  0  0.0,20  00  0.0, 225  0  0. 0, 
0,2400- 0,3000-0, j300. 0-360'     " 
14. 73, 14-73,14.55, 14.85,14 
14.73,  14.75,  14.79,  14.31,  14 

14.72,  14.74, 14.77,14.78,  14 
14.  7  2,  14.7  4,  14.7  6,  14.7  7,  1  4 
14.73, 1 4.75, 14.76, 14.77, 14 

14.73,  1  4.75,  14.70,  14.77,  14 
,6.0- 

0,5000.  0, 10000.0,  15000.0-  1750  0.0,2  0  000.0,2250  0. 0, 
C,2400. 0,3  000.J,j300.0,36  00.J, 
,    „     ,,_     .     .„_     ,     7135,0.7400,0.7740,0.3180, 

5108,0. 503 1 , 0. 5109, 0.5210, 
4433,0. 4343,0. 42  3  7, 0.4245, 
4313,0.415 1,0. 40 38, 0.3947, 
4352,0. 4159,0  .4031, 0.3933, 
^445  ,0. 422  2,0. 40  5  6,0.3  9  40/ 


1000.0,3000 
1200.1,  1800 

1.4  967, 0.3632,0. 73  60,0.6802,0 

1. 5  251,0.7993,0.64  16,0.5303,0 
1.7  335,0.8384,0.64  20,0.48  52,0 
2. 0  262, 0.9162, 0.6784, 0.4916,0 
2.  2151,  0.9759,0.  7106, 0.5043,0 
2. 4 083 11. 0374 ,0.74 76, 0.5210,0 
-A    T54t/    8.0,5.0 


V,  17500.0,20000.0,  22500. 
,3600.0, 

94,  15.01, 
,33,  14.35, 
,30,14.31, 
,79,  14.30, 
,78,14.30, 
•-     14.79/ 


71 


1  00 0. 0, 3 00  0.  5, 5060.  0,10 000. 0-15000. 0,1 75 0  0. 0,23 00 0.0, 2250 0.0, 

120  0.0, 1900. 0,2400.  0-3 000. 0,j300.0,3o 00.0, 

12  14.,  1278.,  1j5 6., 1 615.,  1891. ,20  30. ,2  170. ,23  10.  , 

..,.„       .-,^.,        .,..,       ..,,,,        1o84,      "•"  "        '  ""  ■        *"  ■" 

1623. 


..,  1  509. 
1489. 


♦  1258.,  1290.,  1342 

♦  1303.,  1334.  ,  137 

♦  1343.,  1387.,  1423.,  1524 

♦  1364.,  1417.  ,  1455., 1 548_.     ._, 

♦  1389., 1447. ,  1483., 1575.,  1b73 
DATA     NGT/     8.0,6.0, 

>  100  0.0,3  00  0.  0,5  000. 0,  10000.0,  15  000 


1 762., 1850. 

1691  .,  1755. 
1633. , 1 o85., 1739. 
1o50.,1697.  ,  1749. 
-    -'       1718.,  1  764, 


1940. 
1808.  , 
1788-  , 
1793.  , 
1810./ 


0,  1 75 00. 0,20000.0, 22500. 0, 
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10 

20 


3, 


CA 
CA 
CA 
CA 
CA 
CA 
CA 
IF 
OF 
GC 
OF 
CO 
BE 
EN 


1)  =  3HP 

z[  =Npr 


,  760  4. J, 7772.  3, 3 10  5. J, a  304.^,35  38. 3, oD 60.0, d81 2. 7/ 


:ab 

IL  TAB 

IL  TAB 

LL  TAB 

IL  TAB 

IL  TAB 

IL  TAB 
(jXOJ 

TO    20 
F=0 

NTi:iOE 

TOEN 

D 


1(1 


W2T,X,iCUr ,*2) 

waT,x,xoaT,«8 
r3T,x,/.cax  ,r3 

P9T-X,XCUT,?8i 
SFCT,X,XOaT,SFC) 
T54T,X,  X0UT,r54 
vNGT.X.iCLir  ,fJG) 
)  .3T.0)  .OR.  (XO  JT(2) 


0) )     GO    TO     10 
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c    fa;<  ckaeactzristics  input  susEoariNE  c 

c  c 

C  THZ    DEFAQLT    FAN    CHAH  ACTERISTIC    'JAS    PROVIDED     3Y    JOY    IAN  UF  ACTUS  ING  C 

C  CC.1PANY    AND    IS    50H    TK  Z    FAN    IN'STAILZD    ON    THE     S?F.UA:ICE    CLASS  C 

C  DESTF.CYER.       OTHER    FANS    ARE    nODELED    AS    A    QJADRATIC    EQUATION  C 

C  SITH    A    .lAXiaOS     AT    1AXI.1U.1    FA;i    PRESSUnE    AND     DISCHARGE  C 

C  AND    ANOTHER    POINT    AT     MAXI.1U.1    DISCHARGE    AND     ZERO    FAN    PRESSURE.  C 

C  C 
(2«*»*««««««***«*  ««*«**«*»«««*««»*«**«*««««*««««*«««««««*«**««««««*«**««(; 

SaSROUTINE    FAN  (HHOSTD  -  CF  .10  ,  CF  !1M  Ai  ,  D?  .lA  X  ,  a) 
HEAL    RHO  S  T  D,  C  ?  «0,  C  Fa. "lAI,  DP  i1AX,K 
INTEGER    YES,AN£,NO 
DATA     iES/' YV,  NO/' NV 
C  DO    YOU    WANT    THE    DEFAULT    FAN,    THE    DD    963    CLASS    DESTROYER    FAN    ??? 

2  WRITE  (6,  60  a) 

READ  (3,t501,£:ND  =  4,ERR=4)     ANS 
IF     (  (ANS.  EQ.  YES)  .Ca.  (  ANS.EQ.NO)  )     GO    TO    3 
4  Hi  WIND    5 

WRITE     (6,602) 
GO    TO    2 
8  CONTi:iOE 

IF  (ANS.EQ.  YES)     GO    TO     10 
C  A    ::IFFEE*NT    FAiN    HAS    3EEN    SELECTED,    INPUT    REQUIRED    PAHAnETEHS 

WRITE  (6,602) 
CALL     REiDR  (RH0STD,5) 
WRITE  (6,  6  0  3) 
CALL    READR  (CF!fa,5) 
WRITE  (6,  60U) 
CALL    rEADR  (CFa?!AX,5) 
WRITE  (b,  o05) 
CALL     FEADR  (D?.1AX,5) 
K=-1.  C*D?aAX/(CFM0-C?i3MAX)  •*2 
GO    TO    23 
C  FCLLCWING     Afi  S    VAIJES     FOR    THE    DEFAULT    FAN 

10  RHCSTD=0.071 

CF-a=2U000.0 

cf:imax=i  1000.0 

DPSAX=27. 7 

K  =  -1.J*0PMAX/(CFM0-CF.1!1AX)  **2 
20         CONTINUE 

600  FORMAT  ('        YOU    HA7E    SELECTED    A    SYSTEa    HITH    A    COOLING    FAN.       THE'/ 

♦  •        DEFAULT    3PECFICATI0NS    IkZ    FOR    THE    FAN    INSTALLED    ON'/ 
>  •        THE    DC963    CLASS    SHIP. '// 

■f  '        DO    YOU    HANT    TO    USE    THE    DEFAULT    SP  ECFICATICNS     (Y/N)?') 

601  FC5MAT(A1) 

602  FORrATl'        THE     PaOGRA3     WILL    APPROXIMATE    YOUR     FAN    WITH    A    QUADRATIC'/ 

♦  '       EQUATION.       TWO    POINTS     ARE    REQUIRED    FROM    THE    FAN    PERFORMANCE'/ 

♦  •       CURVES    AND    THE     REFERENCE    AIR    DENSITY     OF    THE    CURVES.        WHAT'/ 

♦  '       IS    THE    REFERENCE    AIR    DENSITY     (L3M/rT3)7') 

603  FORMATt'        WHAT    IS    THE    FLOW    AT    ZERO    JAGS    PSESSU^E     (CFM)?') 

604  FOEMAT('        WHAT    IS    THE     FLOW    AT    MAXIMU::    GAGE    PRESSURE     (CFM)?'/ 
*■  •        D{CF!!)/DP=0. 'J 

605  FORMAT  ('        WHAT    IS    THE     MAXIMUM    FAN     DISCHARGE    GAGE    PRESSURE     (INCHES 
*W.G.)?*/'       D  (CF-)/DP=0.') 

FETUtiN 
END 


loe 


c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 


FITTING    PaSSSaEE    LOSS     CALCULATION     SUanOaTINE  C 


FOE    THE    30    FITTINGS    AVAILABLE    IN    THE    lEM'J    THEF.E    ARE    13     OIFFE^.'^'r 
WAYS    TC    COMPaTZ    THE    LCiS    :0a    THE    FITTISJ.        THIS    SU3SCUTi:iS     .lUS" 
3E    ABLE    TC    RECCGNITE    THE    FITTI;;G    TYPE    AND    SaANCri    TO    THE    COHHECT 
CC3PJTATI0N    ASZA    OF    ^-dZ    SUBROUTINE.        FOF    EXA.1P1E    FILTZ?.    OP    IS 
A    FUNCTION    OF     FACE    VELOCITY.     STRAI3HT    OUCTING    13     F*L/D     TI;^E    THE 
THE    PHZSSURE    VELOCITY.        'iHEr.E    A    COEFFICIENT    IS    CEPENOENT    OF    THE 
EEYNGLIS     NU.1BEH,    THE     COEFFICIENT    IS    CC.1PUTED    HERE    VITH     THE    INPUT 
DATA.       \DOING    ANOTHER     FITTING    WOJLO    RE^JIRE     !1C  jIF  ICA IIO  N    OF    THIS 
SUBROUTINE. 


*»»»»«*«•«««»«*«««*«* **««««««««««««««««4 


m**mm*«*m**»»*****mm«*m*m*Q 


10 


20 


INTEGER    ^yJ"! 

DI.iENSION     X(2)  ,T(45) 

GAS    CONSTANT     ANl    EOUGHNESS 

DATA    5/53.  3ii24/,E/0.  30015/, 

A    REYNOLT     NUMScE    COfiHECTIOM    FOR    S.IOOTH    RADIUS    RSCT    ELBOWS 

♦  T/10.0.3.0. 

♦  1 . 0,2. J  .J. 0.4. 0,6.0,8. 0,  10. 

♦  0.5,0. 75, 4.*). 
♦.                -1.  4.5,  1.  25,  1.19,  1.  14,  1.  09,  1, 

♦  2 . 0 0,  1 .  77,  1 .04 , 1 . 56 ,  1 . 4b  ,  1  . 

♦  ■  2- 00-  1.  77,  1,04 , 1. So,  1. 4b,  1, 
COMPUTE    VISCOSITY    OF     AIP    3ASED    ON 


0,  14.0,20 .0,  100.0, 


06 , 1  -  04,  ■; .  0  0, 1 

:d,l. 30,  1.  15,  1. 
33, 1. 30,  1.  15,1 

"Z'iPERAiURE    t? 


au=(29.95*0.  ia9304*TIN-z.o75a7S-5*TIW*«2)*1E-7 
ASSUr.E    \     VALUE    FOR    HHC 


00,1. 00, 
00,1.0  0, 
00,1. 00/ 
klS 


EKC=PIIN/ (R*TIN) 

VELOCITY     IS    THE    AkSS     FLOS 

AREA:       V=Q/A        ===>    3= MASS 

V=W/  fRH0*DATA1  1 

PRESSURE     VELOCITY 

?V  =  RHO«V*« 2/ (2.0*3  2.  1 7U) 

C0.1P0TZ    THE    3TAI"  " 

PS=PTIN-PV 

CC.1PUTZ    DENSITY   OF    GAS    ENTER 


P.ATS    DIVIDED    BY 
FLO  3    RATE/RKO 


DENSITY    AND    THE    FLOW 


fPSF) 

12.  1  7U 
riC    PRESS; 


5??I=f§/.(5*I?il 


EQUALS    TOTAL    PRESS 
NG    FITTING    USING 
CC!1?UTED    .-iHO 


-    VELOCITY    PRESS 
rZHFECI    GAS    LAM 


CC:iPAEE    ASSUMED    RHO    AND 
TEST  =  ABS  (EdCT-RHO) 
ASSIGN    N^W    VALUE    FOR     RHO 
RHC=RHCT 

IF    ASSUMED    HHO    NOT    E30A1    TO    COMPUTED    RHO    SESUilE    INTE2ATI0N 
If  (TEST.GT.O.  001)     GO     TO    5 
EEYNCLDS     NUMBER 
R;j  =  RHC«DATA2*V/M0 

3RANCH    FITTING    TO    COREECT    DP    COMPUTATION    CODE 
GO    TO     (10,20,10,10,30,30,40,10,10,30,30,30.50,60,70,30,90, 
9  0,  90,90,100,  100,  10,  10,  1  1J,  10  ,  1  20,  1  3  0  ,  1  0,  1  0)  ," 


-TYPi 


SIMPLE    FITTING,    COEFFICIENT    TIMES 

FITTINGS:      1,3,4,8,9,22,24,28,29 

D?  =  i:ATA3  "PV 

PTCnT=?TIN-DP 

TCUT=TIN 

GO    TO     140 


VELOCITY     PRESSURE 


STRAIGHT    DUCT,     FRICTION    FACTOR    IS 

SHAMES,     MECHANICS    OF     FLUIDS,     PAGE 

JAIN. 

FITTING:     2 

F= 0. 2 5/ (AL OG 10( £/ (3. 7« DA TA 2) )*5. 74 /RN»*0. 9)  **2 

LO£S=  (F^L/Dl  •VEICCITY     PHESSUHE 

DP=F*DATA3/DATA2*PV 


COMPUTED     BY    CORF.EIATICN    IN 
230,     COftfiELATIOS    OF    S«AME£    AND 


1  no 


FrcnT=?TiN-DP 

GO    TO     140 

c 

C  E13CW    WITH    iZY  ACLDS    KU.1BZH    CORRECTICN    FACTOR 

C  FITTINGS:     5,6,  10,  11,  1 2 

30  K3E  =  1.j7  0  1-5.  l4e5*ALJG(EN*1E-4) 

D?  =  DATAJ*KP,£*P7 

TOUT=TIM 

PTOUT  =  PTIN-DP 

30    TO    140 
C 

C  SMOOTH    RADIUS     RZCTAIIGaLAR    EI.30a    WITHOUT    7iNES,     REYNOLDS    HUMBER 

C  CCHRECTION    FROM    TA3LZ    LISTED    IN'    DATA    THIS    SaBRCJTINE. 

C  FITTING;     7 

40  RW=DATA4 

C=DATA3 

IF  (RN.GT.  10000  .0)     GO    TO    41 

KB£=1.7 

GO    TO    42 


41 


1  [1)  =BN 

CAIL    TAaLE(T,X,: 


GAIL    TABLE  (T,X,XOUT, KHZ) 
42  D?=C*KEE*PV 

TOUT=IIN 
PTODT=PTIN-DP 

GO    TO    140  '  • 

C  ■ 

c  eranch  section  of  a  diverging  myz.      loss  t2   dependent  on 

c  velocities  in   main  section    fvdwml  ,  cg.-^einej  3ecticm   (7dkc) 

c  branch  5zcti0n    (vdwb)    and  diverg^jcz  angle  op  fittiiic3- 

c  velocities  computed  in  the  system  subroutine,   passed  to  fiid?  as 

c  input  data. 

c  fitting:    13 

50  iest=  (adwm-adbc)/adwc 

:f  (tejT-  lt-0.05)   go  to  51 


K2=((  (-3-  59l47Z-3«AL?AD*3.a309E-6)  •ALF.\D*0.  000057  4)  ♦ 
*■       ALFAD+0.  00  10  399)  *AL  FAD  ♦0.  J  0  00  17 

C=  1.  0*{7D«B/VDWC)  •«2-2.0«(VDHB/VDWC)  •COS  (AL  F  AD/57  .3  ) -K  2  *  ( VD  i»B/ 
+       VDSC)«*2 
GO    TO    52 
51  K1=1.0 

RR=VDW3/yDWM 


IF  (RR. GT. 0.3)      X1  =  0.9 
C=K1*  (1.  0*  (VDWE/VDWC) 
?V=PHC*VDWC«*2/(2.0*3 


.       -     ^    -       .      -       ^  «*2-2- 0*  (VD:iB/VDKC) 'COS  (ALFAD/57.  3)  ) 
52         ?V  =  PHC*VDWC:«*2/(2.0*32.  17U) 

DE=C*?V 

?V  =  RHC*VD»B**2/  (2.0*3  2.  174) 

FTCUT    =PTIN-DP 

TC'JT=IIN 

GO    TO     140 
C 

C  MAI^     SECTION    OF    A    DIVERGING    WYE 

C  FITTING:     14 

C  COEFFICIENT    BASED    ON    THE    RATIO    CF    VELOCITIES    VDWM    AND    V DWC 

C  CCMP'JTED     IN    THE    SYSTEM    PART    OF    THE    PROGRAM 

60  C=0.  4*{1  .  0-VDHM/VDHC)  •*2 

PV  =  HH0«VD-M**2/  (2.  0*3  2.  174) 

D?=C*PV 

PV  =  HHC*VDWM*«2/ (2.0*3  2.  174) 

PTCUT=PriN-D? 

TODT  =  TIN 

GO    TO    140 
C 

C  BRANCH   SECTION    OF    A    CCNVEHGING    WYE,     THE    JUNCTION    CF    MODULE 

C  COOLING    AIR     (BRANCH)      WITH    THE    ENGINE    EXHAUST     (MAIN)  ,    NODE    5 

C  FITTING:     15 

C  ALL    INPUT    COMPUTED    IN    THE    SYSTEM    SUBROUTINE    PASSED    TO    FITDP 

7  0  C=  1.0*  (yCW3/VC*C)  **2-2-0*ACWa/AC*C*  (  VC«  J/VC«C)  »«2-2.0«'AC«3/ACWC* 
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♦  (7C"3/VCWC)  **2*CCS  (ALFAC/57.3) 

P  V  =  n  H  CCC  »  V  CW  C  *  *  :/  {  2.  0  *  3  2  .  1  7  ^) 

D?=C*?V 

?TC'JT  =  ?r:N-DP 
tc'l!T=?t:;  ■jt/(r*shccc) 

GO    TO     140 

c 

C  ."IAIN    SECTION    OF    A    CONVZHGING    '^fZ,     THE    PATH     FOE    ENGi:4E    EXHAJST 

C  NC:E    5,     FITTING:     16 

C  ALL    VZloCITIZS    CCHFUISD    IN    S'lfSIEa    PART    OF    PHOGRAi    AND 

C  passe:    TO     FITO? 

80  K1  =  1-  15*  (  ACWB/ACaC)  **2-2U  (  1-ALF AC/60)  -  (ACV3/ACiiC)  *0.4 


K1  =  1-  15*  (  ACW3/ACaC)^*•2-2  1♦ 
TE£T=ABS     (ACWM-ACWCI  /AC^JC) 

IF  (TEST.  LX. J.  05)     K1=a.O 


F  (TEST.  LX.J.  05) 
C=1.0*(VC»\"1/VC«C)  **2-  2.0*4Cii.1/ACWC*(VC«.1/7CVC)  **2-2.0* 
(AC«B/ACWC)  •  (VCHB/VCWC)  ««2«CCS  i,kL?i  '  "  ' 

=  RH  CCC  •  V  CM  C«*i/(  2.0  •3  2.17  4) 


♦  (ACWB/ACWC)  •  (VCHB/VCWC)  ««2«CCS  (Al,"AC/57  .  3)  ♦Kl 

?  V  =  RHCCC  •  V  CM  C«*i/(  2.0  '3  2.17  4) 
0P=C«F7 
ETCUT=?TIN-DP 
ICCT  =  PTO  UT/(a*EHOCC)  • 

GO  :c  140 
c 

C  DIFFaSEHS 

C  FITTINGS;     17,18,19,23 

C  FRICTION     INClUOiS    IN    THIS    FITTING 

90  L  =  SQHI  (4.  0*OATA1/3.14  16) 

RN  =  EHC»L«7/r.U 

LA^DA=0.  3  1  04 /RN**  0.25 

CFF=C ATA2*LAMDA 

C=CFR+0ATA3 

DP=C*F7 

PTCUT=?TIN-DP 

TOaT=TIN 

GO    TO     140 
C 

C  CONTRACTIONS 

C  FITTINGS:     21,22 

100       7='.i/ {RK0*DArA4) 

P/  =  EHC*V«*2/  (2.0«32-  1  7  4) 

0P=DATA3«PV 

PTCUT=priN-DP 

T0UT=riN 

GO    TO     140 
C 

C  INLET    FILTER 

C  FITTING:     24 

C  PRESSORS     LOSS    BASED    ON    FACE    VELOCITY 

C  5.15670    IS    A    CCNVEHSICN     FACTOR    10    CONVERT    INCH    WG    TO    PSF 

110       D?=(DATA2*7*»DATA3)  •5-19696 

?:C'JT  =  PTIN-DP 

T3  0T  =  TIN 

GO    TO    140 
C 

C  GAS    TURBINE    .lOCaLE,    THIS    IS    NOI    THE    ENGINE,     301    THE    PATH    FOE 

C  CGCLING    AIR    AROUND    THE    ENGINE 

C  FITTING:     26 

C  LOSS     BASED    OF    THE    r.ASS    FLOW    OF    COOLING     AIR     THECOGH    THE     "ICDaLE 

120       CP=  (1.61  E- 3* W**2.  15)  "i.  1969o 

PV=J. 0 

PTCUT  =  PriN-DP 
C  THE    FOLLOWING     ffCDSL    FOR    .10DJLE     lEi'l?    COT    SHOOLD    5E    REFINED 

C  II    IS    JOST    A     BEST    "GO  ESS -II.^ATE " . 

T0UT  =  TIN*2  5.  0/'«*  (aP/2  0000.  0' 1  00  .  J) 

GO    TO     140 
C 

C  WASTE    HEAT    aOIIES,     GAS    SIDE    PRESoJRE    LOSS 

C  FITTING:     27 

C  BASED    ON     T03E     BUNDLE    GEOaETaY.     VELOCITY    IN     THE    NARROW    PASSAGE    O: 

C  OF    THE    lUES    3aNCLE,    FRICTION    rACRTOR,     F,    A     F'JNCTICN    OF     REYNOLDS 


1  1  1 


:  NJfBEH 

13  0       V=V*DATA2 

?y  =  F,H0*'/*«2/  (2.0*3  2.  17  4) 

fi;j=F.aO*7»DATA4/f«U 

F=  1.  334*RN*»  (-0.  1453) 

DP=F*DATA3*PV 

?ICUT  =  ?TIN-D? 

10^1=0.00  185*HP*247.0* TO 

SH0=  IzS-d?)/  (R*'IOaT) 

V=-.I/  (aH3*DATA  1) 

PV=RHC*V««2/ (2-0*32. 1 74) 

GO    TC     140 

:  NO    ;10RE    FITTINGS,    IF     YOU    ADD    A 

:  EZC'JIPING    A    DIPFtRZNT    .1ETH0D    0 

:  SHCDLD    30     "^°^ 

140       CONTINUE 

BETUHN 
END 


HERl 


DIFFERENT    TYPE    OF 
F    C0.1PUTATIDN  ,     THE 


FITTING 
METHOD 


112 


c ««  »  * 

c 
c 

c 
c 


c«»  » 


10 


20 


,C35SS    (INCH    rtG) 


iYSTi;'.   DUE    .lArCHIMG    5JBH0aTi:i2  C 

IK    THI3    SYSTEM    THE    TOCIING    AIR    AWO    ENGINE    CC.ISiJSTICN    00    NOT  C 

XZ'i.       THE    LOSSES    AHE    COI'.PaTED    I  .J:iE?INDE  STL  if .        A    FAN    IS     r.ELJIHED  0 

FOR    THE    COOLING    SYSTE.".    TO    OPEHATE.       SYSTE.1     -.ATCHirC    INVOLVES    TWO  C 

PROCESSES,    FIRST    .1AKE    THE    ENGINE    LOSSES    AGREE    «ITH    IHE    COMPUTED  C 

DoCT    LOSSES,     SECOND    .1AKE    THE    FAJ    PERFOaiANCE    .''.ATCH    THE    COOLING  C 

CjCT    losses.        no    junctions    are    PRESENT.  C 

S'JEROaTINS    SYS1  (SERIAL,  N.SORKI,  ■-tOR£<R,hP,NP  T,  FIT  1ST,  TO,  PO,HUr  ID, 

♦  RHOSTC.CFSO  ,CF."1MAX  ,DP.-'.AX,;\1 

REAL  WCRKR.HP,  NET, TO,  pO,  HOaiD,  CF.1 .1  Ai  ,  C  F.10,  D  P  SA  X,  K  ,  «  2,  :J8  ,?8  ,  19  . 

♦  INLOSS,EXLCSS,FA  ND? , DP  1 3 , D P2 4 , D ?36 . DPU 5 , P V, PTIN, PTCCT , DATA1 , 

♦  :ATA2,f)ATA3,liST  ,:?,FITPV,  WC  ,  ^  HOSTD,  IE  ST  1  ,  tEST2  ,  WC  N  ,  tSoD  , 

♦  TSU ,SFT.NG,DATAU ,T4,DEL? 

INTEGER    «"0RKi,  FIT1ST.  CFF.N-P,  O-R,  A,  3  ,  C,  SIR  I AL  ,  TY?  E 

DI.1ENSICN     WO  RKI  (20  0,2)  ,  :J0RKR  (20  0  ,  U)  .FIT  1ST  (  4  1  ,  DP  (  20  0)  ,  F  ITPV  (2  00) 

THE    FCLLOWING     ARE    TliE    STARTING    AND    SlOPPIN*    POINTS    FOR    THE 

BRANCHES.       START    AND    STOP    3Y    THE    SEiOENTIAL    INDEi    NCSBER    IN    DUCT 

DATA     FILE 

P=FIT1ST  (2)-1 

Q=FIT1ST     3-1 

H=FIT  1ST    4)-1 

A=FIT1ST    2 

3=FinSI{3\ 

c=fitist]u) 

initiali-e  inlet  and   exhiusi  doc: 

INI0S3=a, 0 

EXLCSS=8. 0 

INITIAIILE    COOLING    FLOW 

WC=20.0 

INITIALIZE    LOSS    IN    BRANCH    U-5     (?SF) 

DP45  =  100.  0 

WITH    ASSUMED    LOSSES   GET    THE    ENGINE    ?ERFOR;iANCT 

CA  LL    ENGINE(INLCSS,EXLOSS,T0,?0,HU.1ID,H?,NPi,«2,U8,P3,Ta,SFC, 

♦  T54,NG,0FF) 
IF  (OFF.EQ.  0)     GO   TO    o 

WRITE  (6,o00) 

GO    TO    5  00 
CCNTINOE 

INITIALIZE    CONDITIONS     FOR    START    OF    3RAt;CH    1-3,     ENGINE    INLET   .F: 
DP  13  =  0.0 

INLET    PRESSURE    IS    ABB  lEiJT     (PSF) 
PTIN  =  ?0*  144.  0 

INLET    TEMPEHATOEZ    IS     AMBIENT     {dZZ    R) 
IIN=T0*459.7 
DO    10    1=  1  ,  ? 

TYPE=HORSI  (1,2) 

DATA1  =  WCRKH  (I,  1) 

CATA2=acaKR    1,2 

DATA3  =  W0H;<H    1,3) 

0ATA4  =  HORKR  (I,4i 

CALL    FITDP  (•.2,H?.PTIN,TIN,PT0JT.T0UT,?V,DATA1,DATA2,DAT4  3, 

♦  DATA4,TYPE,DEi,P,0.  ,0.,0.,0.,0-,J.,0.,0.,0.,0.,0.  ,0.,0., 

♦  J.  ,0.  ,  10) 

DP  (I)  =de;l? 

DP13=0P13*DELP 

FITPV (I)=?V 

PTIN=PTOUT 

Ti:.'=TOUT 
CCNTINDE 

INITIALIZE    INLET    CONDITIONS    FOR    BEANCH    3-6 
PTIN=?8«144.  0 
1IN=T9 
DP36=0.0 
DC    30    1=3, R 

TY?E=.<ORKI  (1,2) 
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45 


50 


55 


CATA1=W0RKR  (I,  1 
uATA2  =  WCHKR  |I,2 
DATA3  =  B0RKH  (I,  3 


vATA4  =  W0fiKP.  i 
CALL    FITD?(« 


=WORKP.  (I,  -*) 

CALL    FITD?  («a, HP, ? TIN, TIN, ?r our, 1 0nr,?7,  DATA!, CATA2, OAT  A  3, 

0.  t_0.  ,  10) 


MI)  =Di.L2 

'i6=DP: 


DP,-,      

CP  J6=DP36*D£I? 
FITPV (I)=P7 
PTIN=PTOUT 
IIN=rOOT 
30  CCNTINDE 

C  IF    THE   2XIT    PRESSURE    __ 

TZST=AES  {?TOOT-?0*144.0) 
IF  (TEST. LI.1. 0)     GO    TO     40 
PTIH=P0*144.0>DP36 
30    TO     2  0 
40  CCNTINU2 

C  COMPARE    ASSUMED    INLET    AND    EXHAUST 

C  Ir    THEY    DO    NOT    AGREE    REPEAT 

IN  10 S 3  =  1 N LOSS* 5. 19696 


IS    NOT    AMBIENT,    REPEAT    aWTIL    II    IS 


LOSS    :iITH    THE    COMPOTEt    LOSSES 


.3609) 
036091 
(TZST^-JT. 1.0) )     GO    TO 

ITICNS    FOR    3RANCH    2-4 


EX1CSS=3X1CSS*5.1969  6 
IE  ST  1= ASS (DP  13 -IN LOSS) 
TEST2=A3S ( DP36-rXLOSS i 
INIOSS=0? 13/ (1U4.0«0. 0 
EXLOSS=0P36/(l4a.0*0. " 
I?  ((TZSI1.  31.  1.0)  .OR. 
INITIALIZE    INLEI    COND 
PTIN=P0«144.  0 
DP24=0.3 
IIN=T0*459.7 
DO    50    I=A,Q 

TYPE=WORKI  (1,2) 

DATA1=i;0RKH  (t,  1) 

DATA2=W0RKR    I,2i 

DATA3=H0RKH    1,3 

DAIAU  =  WORKR  jl,4' 

CALL    FITDP  (SC,d?,? TIN, TIN, ?T OUT, TOUT, PV, DATA1,DATA2, DATA 

»•        DATA4,TY?s,:i:L?,o-,o.,o.,o.  ,j.,o.,o.,j.,a.,a.,o.,o.,o., 
♦  0.  ,0. ,  :c) 

DP  (I)  =D£LP 

DP^4=DP24*DELP 

FITPV  (I)  =  PV 

PTIN=PTOUT 

IIN=rOUT 

IF  (TYPE  .EQ  .  26)  T!10D=TC0T 
CONTINUE 

INITIALIZE    CONDITIGLi'S    FOR    BRANCH    U-5 
T4=T0UT 

PTIN  =  ?0*mu.  0+DP45 
IIN=T4 
DP45=0.0 
DO    60    I=C, N 

TY?£=MOSKI  (1,2) 

CATA1  =  W0RKR  (I,  1) 

DAIA2  =  W0RKR    1,2 

DATAi  =  WORKH    1,3) 

DATA4=W0RKR    I,4i 

CALL    FITDP (  ■C,H?,?TIN.TIN,PTOUT,T0  0T,PV, DArA1,DAIA2 
♦  DATAU, TYPE, DEL?,  0., J. ,0.,0 

■»•  0.  -0.  ,t0) 

DP  (I)  =DELP 

DP45=DP45*DE 


3, 


UTjTOUI.PV, DAIA1  .DA IA2 .DATA  3, 


FITPV  (I)=P7 

:TIN=?T0UT 


:IP 


60 


TIN=T0  0T 
IF  (TYPE. EQ.  26)     TaOD  =  TOUT 
CONTINUE 
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15 


73  FA 

C  .1A 

CA 
C  IF 


500 
600 
60  1 


EXIT  C 
Sr  =  ABS  ( 
(IZST.L 

GC    TO 
N    PRESS 
;1DE=  (0? 
TCH    rLO 
II     FAN"! 

ASSU.IE 
ST=ABS  { 


CMDIT 

PTO'JT 
1.1.0 
55 

a  ES  s 

24<-0P 

w  ro 

ATtHC 
D  FLC 
WCN-» 


:CN  ccuDiiioN  IS  no: 
)   oO  ro   70 

ISE 

45) /(1'i4.0*0.03o091 

S'iSiZ:!     FOE    SEXr    11^ 


A:i3IENr    ?EES3a?£    REPEAT 


&Ar:o:j  vi: 


*c:j 


CA 

DP 
DP 
DP 
DP 
WE 

wa 
cc 

FC 
FO 

FE 
EN 


jTEET.G 
ITE    IHZ 

ij-  car? 

«  2  ,  W  3  , 
13=DP1 J 
3b  =  DP36 
;u=DP2U 
45=D?'45 
ITZ  SU.1 
ITE     (4, 

;iTi:;aE 

FflAI  (' 
EMAT(/5 
/5 

D 


T  .  0  .  1 
INFO 
yT(TO 
P3,T9 
/5.  19 
/5.  19 
/5.  19 
/5.  19 
MAS  If 
601) 


,10,  PO,  "ANDP,rHOS:D-CF:iO  ,  CF:^  .1  AX  ,  D  P  1  AX  ,  K,  W  CN) 

fl    .lAICHES    .lATcaZD    FLC*    iC'J    ARE    FINISHED 
C) 

1     GO    TO     45 

F:1ATI0N     10    AN    OUTP'JT    FILE 

,P0,ha.1ID,a?,N?T,  :J,  WORKI,  2?,  fitpv,inlcss,  exloss.pc 

,iFC,r5U,NG,o£aiAL,  r.lGD) 

0S6 

696 

696 

696 

OF  3RANCH  LOSSES 

L-i-\2,2?2o,  DP24,  DP45 


P0KE3    ?Oi:tT     IS    MOT    ON    IHE    PERFORMANCE    -lAP.') 
H.'-^OSS    BRANCH     1-3  :  '  ,  F  1  2  .  3  , /5  X  ,  •  LC  SS     BRANCH    3-6:',F12.2, 
X,'LCSS    3HANCH    2-4  :  <  ,  F  1  2  .  J  , /5  X  , '  LO  SS    3EAtiC:i    4-5:',F12.2) 
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C  SYSZiy.    rWC    MATCHING    SUaSCUTIME  C 

C  C 

C  THIS    SYSTEM    HAS    A    CO.ISIl.'ED    INLET.        ENGINE    AIS    AND    COOLING    A IH  C 

C  ENTEa    THROaCH     IKE    SAME    ENTSi.        THE    CC0LIN3     AIE    SEFEHATES    IN    THE  C 

C  "IAIN    INLET    DUCT.     3RANCHING    OFF    TO    THE    COOLING    "AN    AND    IKEN    TO  C 

C  THE    MODULE.       THE    COOLING    AIR    DOES    NOT    JOIN    THE    EXKAJST     FLOW.  C 

C  IT    IS    OaCTED    SEfAfiAIEIY    TO    THE    ATMOSPHERE.  C 

C  C 

SU5H0UTINE    S  YS  2  (SEr.I  A  L,  N  ,  WO  RKI ,  SORKS  ,  H?  ,;iPT  ,  f  IT  1  S  T,  10  ,  P  0,  H'J  MI  D  , 
■f  ALFAD.aJ^iB.  ADWC  ,ALWM, 

♦  EHOSTD.CrM0,CFMMA;C,DFMAX,K) 

REAL    WORKR.HP  .NPT.ID,  PO  -  HUmId  ,  CFM  M  AX  -  CF  MO  ,  D  PilAX  ,  K  ,  W  2,  :T  8  ,  ?8  ,  T3  , 

♦  INLOSS- EXLCSS ,FA  NOP, DP  12, DP24. j?3o- DP  45, PV,? TIN, PTC UT, DATA!, 

♦  DAT  A  2,5  A  TA3,  TEST  ,  DP.FI  T?7,  SC  ,SH0ST!),  TEST  1 ,  J  EST2  .;5CN,TMCD, 

♦  154  ,S  rC,  NG,ALFAD,  ALWB,  ADWc,ADWM,DP2j,?T2,iiH02,  VDW3  ,VDaC,VDW«, 
DRTA4,R,.J 


INTEGER    WCEKI.FIT1ST.  CF?,N,P?. 3D,R&, S3 , A, 3 , C.D , SERIAL, T YPS 
DIMENSION     WORKI  (200,2)  ,WCRKR  (25*,4)  ,FIT1ST  ;5)  ,D?  (2J0)  ,riT?7  (2  00) 

GAS  ccnst;  - 

DATA    R/53, 

THE  start; 

PP=FinST 
QC=FIT13T 
3n  =  FlT1SI 


C  GAS    CCNSTANT 

DATA    R/53. 3424/ 
C  THE    STARTING    AND    STOPPING    POINTS     FCa    3EANCH    COMPUTATION    LOOPS 

PP=FinST  (2)  -1 

3)  -1 

4)  -  1 
S-S  =  FIT1ST  (5)  -1 
•A=FIT1ST(2) 

3=FIT1Sr  3) 
C=FIT1ST (4) 
D=FIT1Sl]5) 

INITIALISE    INLET    AND     EXHAOST    LOSSES     (INCH    WG) 
INLCSS=4. 0 
EXLOSS=8.0 

INITIALIZE    COOLING    FLOW 
WC=20.0 
D?45=100. 0 

GET    THE    ENGINE    PERFORMANCE    WITH    THE    ASSUMED     LOSSES 
CALL    ENGINE {IN ICSS, EX  LOSS, TO, PO , aU MI D, HP , N P T , ^ 2 , *  8 , P8, T8 ,SFC, 
♦  T54,;iG,0FF) 
IF  (OFF. SO.  0)      jC    to    o 
-tf     ---• 


WRITE  (6,600) 
GO    TO    5  00 


6  CCNTINOE 

C  INITIALIZE    THE    INLET    CONDITIONS    FOR    3RANCH     1-2 

DP  12=0.0 
PTIN=P0«144.  0 
TIN=T0*459.7 
C  CCMPUTS    FITTiaG    LOSSES 

DO    10    1=  1  ,  PP 

TYPE=l.-6EfCI  (1,2) 
DATA1=i?0BK2  (I,  1) 
DATA2=W0RKE    1,2) 
DATA3  =  W0RKR    1,3) 
DATA4  =  «0RKB  il,4) 

CALL    FIIDP  (S2.HP.?  TIN,TIN,PIC7T,T0UT,PV, DATA1,DATA2, DATA3, 
*         DATA4,TYPE, D£iP,0.  ,0.,0.,J.,J.,J.,0.,0.,0.,0.,C.,0.,0.,0.,0., 

♦  Tor 

DP  (I)  =DELP 

DP12=DP12*DEIP 

FITPV  (I)  =  PV 

PTIN=PT00T 

TIN=TOUT 
10         CONTINOS 
C  COMPUTE    VELOCITIES    IN    THE    DIVERGING    WYE    SECTION 

PT2=eO«144.0-DP12 
RHC2=  (Pr2-PV)/  (  (T0*45  9.7)  •R) 
7DS3  =  WC/  (RH02*ADW3) 
VDSC=  (KC>H2)/  {EHC2*ADWC) 
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NDITIONS    ?CH     3P.AMCH    2-5 


FITTINGS 


V D  WM  =  S  2/  f  a  HO  2  *  AC M «) 

INITIALIZE    INLII    CC 

?TIiV  =  ?T: 

:iN  =  I  J*459.7 

«  =  •  2  +  WC 

DP23=0.3 

CCMPUTE    LOSSES    fOH 

DO    20    I=A,Qi 

TY:E=W0HKI  (1,2) 

datai  =  hos?:r  (I,  i 

DATA2  =  U0RSR  il,2 
DA':A3  =  !I0BKR  (1,3 
DATA4  =  HCaXR  (1-4 
CALL    FITDP  (S.H?,?TI  N.TIN -?'.^«.,  xw«.,.r.,^nx«  .,^nx  «*- j«.A-.  t 

DATAU^TYPH^iELPiO.,  ALrAD,  J.  ,  J  .  ,  J  .  ,  A  OiiB  ,  A  Di  M,  ADWC,  0  .  ,0.,0. 


.PT0aT,TODT,PV,0ATM,DAT  A2.  0ATA3 


vfcpB  .7firiM,  v6ac,o 

OP  (11  =DELP 
:P^3=DP23*DEIP 


,,T0) 


FITPV (I)=P7 

'Tia=P': 


FCa    BRANCH    3-0 


OUT 


PTia=?T6UT 
TIN=rOOT 
20  CONTi:iaE 

C  INITIALIZE    CONCITIONS 

PTIN  =  ?8*  144.  0 
30  IIN=T8 

D?36  =  0.3 
C  CCaPGTZ    FITTING    LOSSES 

OO    35    I=C,SS 

TYrE=«ORKI  (1,2) 

DATA1=HGRKa  (I,  1) 

LATA2  =  *-0RKR  (1,2) 

CATA3  =  (J0RKR  (1,3 

0AIA4  =  WCRKR  (1,4) 

CkLL    FITOP  (■J6,HP,?TIN.TI}i,?TCUT,: 

♦  OATA4-rY?E,:ELP,0. ,a1fA3,0.,J.,> 

♦  VSWB  .7C^i1,7DSC,Q.,T0) 
OP  (I)  =DSL? 
DP j6=0P36fDZIP 
FIIP7  (I)  =  ?7 
PTIN=PTOaT 

:iN=rouT 

3  5  CONTINOE 

C  IF    THE    EXIT    PRESSURE     IS    NOT    AaSIZNT    REPEA 

TEST=ABS (PTOUT-?0*144 . J) 
IF  (TEST.  IT. 1.0)     GO    TO     40 
?TIN=P0*144.0*DP36 
GO    TO     3  0 
40  CCNTINUS 

C  TEST    THE    ASSUflEO    LOSSES    AGAINST    TH 

IN10SS=INLCS3*5. 19  696 
EXI0SS=EXL0SS*5.1969  6 
TE£T1=AflS  fDP12t-CP2j-INL0SS) 
TZST2=A3S (CP36-EXLOSS ) 
i:iLQSS=(OP  12*DP23) /5.  19696 
ZXLCS3  =  JP36/5.  19o96 
C  REPEAT    ITERATION    IF    ASSDSEO    LOSSES    00    NOT    ".A: 

I?  (  (TZ3T1.  GT.  1.0)^.CR.   (TEST2.GT.  1.  0)  )     GO    TO     5 
C  INI.IALIZE    THE       INLET    CCN0ITION5    FOR    3EANCH     2-4 

45  ?TIN=ET2 

OP  24  =  0.0 
TIN  =  T0*459  .7 
C  COMPOTE    FITTING    LOSSES 

DO    50    I=3,HH 

TYPE=HORKI  (1,2) 


«..?7,DAIA1,:iTA2, DATA  3, 
,  ADW3,  AOWH,iD'^C,0.  ,:).  ,0. 


:OMPaTEO     LCSSES 


CH    THE    COSPUTEO    LOSS 


(i:']] 


EATA1=W0aXR 
CATA2=H0RKR 

data3  =  worf:r  (1,3) 

DATA4  =  H0flKR  (1,4) 
CALL    FITD?  (HC,H! 


,?TIN,riN, PTOUI,TOaT,?V,OATA1,0ATA2,0AiA3, 
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50 


55 


60 


70 


500 
600 
601 


^  DATA4,TY?E,£ELP,0  .,ALFAO,  0-  ,0.  ,0.  ,ADW3,  ADW.1,  ADWC,0. 

y  7DWB  ,7CWP1,VD«C,Q.,T0) 

DPfl)  =DSLP 

DPz4=DP24>DELP 

FITP7  (I) =P7 

PTIN=  PTOUT 

TIM=TO0T 

IF  (TYPE. EQ- 26)     TMOD=TO0T 
CCNTINOE 

INITIALIZE    THE    INLET    CONDITIONS     FOR    BRANCH    4-5 
T4=T0UT 

PTIN=P0*144.  0+Df45 
'IIN=TU 
D?45=0.0 

CC.1PUTE    LOSSES    FOR    FITTINGS 
DO    60    I=D- N 

TYPE=WORKI  (1,2) 

CATA1=W0HKR  (I,  ^} 

DATA2=W0RKH    1,2 

DATA3  =  «0RKR  (1,3) 

DATA4  =  W0aKR  (1,4 

CALL    FITDPJ'JCH 


.0.  ,  0. 


DATA4, TYP 

J   .      ,0   m, 

DtLP 


,...,PTIN,TIN,  PTOUT,  TOUT,  ?7,  D  AT  A  1  ,  DA  TA2  ,  DATA  3, 
-i}EL?,0.,0-,0.,0.  ,J.  ,J.,0.,0.  ,0.,0.  ,0.,0.  ,0., 
10) 


MATCa  FAN  PERFORMANCE  TO  SYSTEM 

19o9o 
L.P,aHOST0-CFM0,CFM:iAX,DPMAX,K,  WCJI) 
YOU  ARE  FINISHED 


DP  (I) 

DP45=DP45*D£I? 

FITP7  (I)=PV 

PTIN=PTOOT 

TIN=rOUT 

IF  (TYPE. EQ.  26)    TaOD=TGUT 
CONTIllaE 

IF    EXIT    PEESSTRZ    NOT     AMBIENT    REPEAT 
TEST=ABS (PTOUT-P0*144 .0) 
IF  (TEST.LT.1.  0)     GO    10    70 

GO    TO    5  5 
COMPUTE    FAN    PRESSURE    AND 
FANDP=(DP2  4*DP45*D?12)'/5. 
CALL    FANMATfHC,T0,P0,  PAND 
IF    COOLING    FLOW    MATCHES    '' 
TESI=ABS  (  WCN-RC) 

yc=ttCN 

IF  (TEST.GT.O.  1)    GO    TO    5 

WRITE    PERFORMANCE    INF  QRM  ATION    TO    THE  __OUTP0T  _  FILE 

:  ,W8,P8;T3  ,SFC,I54,SG,SEHIiL;  IMOD) 

DP12=6pi5/5- 19o96 

D?23  =  DP23>'5.  19696 

D?36=D?36/5.  19696 

DP24=DP24/5.  19696 

DPa5=DP'45/5.  19696 

WRITE    THE     EHANCH    LOSS     SUMMARY 

WRITE     (i*,601)     DP12,DP23,DP36,DP24,DP45 

CONTINUE 

FORMATC        POWER    POINT    IS    NOT    ON    THE    PERFORMANCE    MAP.M 

FOFMAI  /5X,'L0£S  BRANCH  1-2 : ' , ? 1 2 . 2 , /5X , ' LO S5  SRAKCH  2 
►  /5X,'L0SS    BRANCH    3-6 :', F 12  -  2, /5X ,' LO SS    BRANCH    2 

I-  /5X,'L0S£    BRANCH    4-5;',F12.2) 

RETURN 

END 


LL    OUr?UT(T0  ,PO,aUMID,a?,NPT, N, WCRKI, DP, F ITF7 , I NLCSS , £XL0SS,HC, 
W2,W8,P8,T3^SFC,I5  4,NG,SeHJ^^     --'>-^' 


,F12, 
,F12. 
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C  SYSIEf.    THREE    MAICHING     SOBROUTINS                                                                                          C 

C  C 

C  THIS    SYSTEM    aTILIZES    A    CC.IBINED    INLET    kl^D    EXA'JST    OOCT    FOH    30TH         C 

C  ENGINE    AIH    AND    COOLING    AIR.       NOOE    2    IS    A    DIVERGING    '^YE.       NODE    5       C 

C  IS    THE   JJNCTIDN    OF    .lOOaLE    AIH    AND    ENGINE    EXHAUST.       THE    SCHE.1S    IS    C 

C  TO    FIX    THE    PRESSURES     AT    NODES    255    AND    WORK     THE    PARALLEL    SRANCHES    C 

C  SO    THAT    THEY    HAVE    THE    SA.1E    INLET    AND    OQTLET    PRESSaF.E,     ?2    ?.ND    ?5.     C 

C  CHECK    ASSUMED    LOSSES     AGAINST    COJPUTED    LOSSES    REPEAT    IS    NECESSARY. C 

C  C 
C«*«*  *«««««**«  mm  *******m***  **^ ***************  ***^  ********************* *c 

SUEROUTINE    SYS  3 (SERI A L, N , WORKI, MOE KR , HP , NPT , FIT  1  ST, TO, ?0, HUMID, 
ALFAD,  ADH3,  ADWC,A£:i;i,ALFAC,  ACHB,  ACWC,  ACPI, 


RH0STt-CFM6,CFMMAX,b^t1AX.:<f 

NPT.TO,  p5,hu;iid,cf:i«ax,cf.io,  DP? 


INTEGER    WORKI.FITIST, OFF, N , PP , ; i, RH, SS , TT, A , 3 , C, D ,E ,SER lAL, TYPE , 
♦  IND 

DIMENSION    WORKI(200,2)  ,HCHKE(^00,  4)  ,  FIT1ST  (6)  ,DP  (200)  ,FIIPV  (200) 
GAS    CONSTANT 
DATA    H/53.3i*2a/ 

SET    UP    STARTING    AND    STOPPING    POINTS    FOR    BRANCHES 
PP=FIT1ST  (2)  -1  .•  • 


Q0=FIT1ST     3    -1 
BS=FIT1STi4    -1 

SS=FIT1ST .5    -1 

TT  =  FIT1SI  .'6    -1 

A=FIT1ST  (2) 

B=FIT1Sr (3) 

C=FIT1ST    u{ 

D=FIT1SI    5) 

E=FIT1STl6 

INITIALIZE    LOSSES 

(INCH    WG) 

INI0SS=4. 0 

PYTpcc  —  a      A 

C  INITIALIZE    GAIN    IN    THE    MODULE    EXHAUST    EDUCTOR     (PSF) 

GAIN=-30.0 
C  INITIALIZE    DUCT    LOSS    IN    THE    COOLING    FLOB    PASSAGE     (PSF) 

LOSS=30.  0 
C  INITIALIZE    THE    COOLING    FLOW 

WC=CFMMAX*RHOSTC/60.0 
C  INITIALIZE    THE    BRANCH     LOSSES    REQUIRE    TO    START    THE    PROGRAM 

D?45=100.  0 

DP56=100. 0 

TMOD=710.0 

PT5=P0«1U4.0>DF56 
C  CHECK    TO     SEE    IF    THERE     IS    A    KASTE    HEAT    BOILER    INSTALLED 

C  IN    aEANCH    3-5.       IT    DOES    NOT    MAKE    SENSE    TO    PUT    IT    ANYWHERE    ELSE. 

INE  =  0 

DO    4     I=C    SS 

TYPE=50RKI  (1,2) 
IF  (TYPE. £Q.  27)     IND  =  1 
1*  CONTINUE 

C  GET    ENGINE    PERFORMANCE    EASED    ON    ASSUMED    CONDITIONS 

5  CALL    EN3INE(INlCSS,SXLCSS,T0,?0,HOKID,dP,NPT,U2,H8,P8,r8,SFC, 
♦  T5a,NG,0FF) 

IF  (OFF.EQ.  0)     GO    TO    6 
WRITS (6 -600) 
GO    TO     5  00 

6  CONTINUE 

C  INITIALIZE    THE    INLET    CONDITIONS    FOR    BRANCH     1-2 

DP12=0.0 
PMAIN=PT5*L0SS 
PSEC=PT5*GAIN 
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PTIN=FO*  lUa.  9 

IIN=T0+a59.7 

COMBINED     MASS    flOS    WC«-W2 

W=i.C+W2 

FIND     FITTING     LOSSES 

DO    3     1=1. P? 

TYFE=HO?,KI  (1.2) 

DATA1=WCRKF.  (I,  1) 

DATA2  =  H0aKR  (1,2 

CATA3  =  WGEKR  (1,3) 

DATAU  =  WORKR     I, a) 

CALL    f  ITDP  (W,.'i2,?TIN,TIN,?TOaT,TOUT,?Y,DATA1,DAIA2,0ATA3  , 
♦         DATAa,TYPE,DEL2,0.  ,0.,0.,3.,0.,J.,0.,0.,0.,0.,0.  ,0., 

5-,o.  ,o.,t5) 


•f 


DP  (I)  =D£L? 


D?12=DP12*DEIP 
FITPV (I) =?7 
PTIN=PTOUT 
TIN=TO0T 
8  CCNIINOE 

C  THE    JUNCTION     PARAMETERS    AT    i^ODE    2    AND    5    ARE    CCMPOTED    HERE 

C  BASED    ON     THE    CURRENT     ASSOaPTICNS.        THE    PARALLEL    BRANCHES    MUST 

C  MEET    THE     VALUES    AT    THE    NODES    2    AND    5.       THE     PARAMETERS     ARE    AS 

C  NOTED    IN    THE    CCKMENTS 

C  TOTAL    PRESSURE    AT    NODE    2 

ET2=E0*144.J-DP12 
C  DENSITY    AT    NODE    2 

EHC2=  (Pr2-?V[/ j  (TO+45  9.7)  *R) 
C  VEIOCxTY     IN    THE    COOLING    BRANCH 

VDHB=SC/ (RH02*  ACI?B) 
C  VELOCITY    IN    THE    COMBINED    INLET    SECTION    ABOVE    NODE    2 

VDWC=  (WC  +  M2)  /  (RK02*A0WC) 
C  VELOCITY    OF    THE    AIR    FLOWING    10    THE    ENGINE    FROM    NODE    2 

VDWM  =  W2/  (RH02*ADSM) 
C  TEMEErJVTUEE    OF    THE    AIR    IN    THE    PRi;iA£Y    FLOW     OF    THE    JUNCTION     AT 

C  NODE    5.    ENGINE    EXHAUST    TEMPERATURE 

TMAIN=T3 
C  IF    A    BOILER    IS    IN    BRANCH    3-5    THE    TEMP    IS    THE    TEMP    OUT    OF    THE 

C  BOILER 

IF  (IND.EQ.  1)     TMAIN=770.0*3.  70E-3*HP 
C  CCMPUTATION    TO    FIND    THE    lEMEEEATURE    OF    THE    C0.13INED    FLOW 

C  BASED    OF    THE    ENTHALOPY    OF    THE    TWO     MIXING    FLOWS 

HSEC=  (1.  4  213  8  5E-5*TMOD  +  .  22109  1)  *TM0D*5.  o37  3 

HMAIN=(1  .  5  60  51E-5*TMAIN*.22  3a8)  *TMAIN-t-4.753  5  6 

HSIACK=(W8/(W8+WC)^)  *  H  MAIN*  (  KC/ { W8  +  WC)  )  *HSEC 

T5=(-C.J0  0  84  17*HSTACK+4.  33  5  771*  H3TACK-9  .  577  8 
C  ASSUME    THE    DEIISITIES    AT    NODE    5     ,C0.13INED,     MAIN,     AND    BRANCH 

RHCCC  =  ?T5/  (R*T5) 

RHCCE  =  PSEC/(R*'!MOD) 

HHCCM  =  PMAIN/  (R*TMAIN)^ 
C  COMPUTE    THE    VELOCITIES    AT    NODE    5,     BRANCH,    COMBINED,     AND    MAIN 

10  VCW3=SC/ (RH0C3*ACHB) 


VCV.C=  (WC  +  W8) /{FKOCC*ACWC) 

VCfiM=«8/ fHHOCM*ACWM) 

r-  r  SA  v.  TT  T  V     -^  'J  -^     ^fV-rnr^TTY      nnrc 


COMPUTE  THE  VELOCITY  PRESSURES  ABOUND  NODE  5 

PVH=RHCC3*VCWB**2/(2.  0*32.  174) 

PVC  =  EHOCC*VCWC**2/(2.  0*32.  174 

PVM=5HOCM*VCHM**2/|2.  0*3  2.  174) 

COMPUTE    STATIC    PRESSURES    AROUND    NODE    5 

£3E=PSEC-PVB 

ESC=PT5-?VC 

ESP=EMAIN-?VM 

COMPOTE    DENSITIES    AROUND    NODE    5 

RHCC3T=PSB/(R*TM0D) 


RH0CCT=PSC/(R*T5) 

RHCCMT=PSM/(R*TMAIN> 

TEST    ASSUMED     DENSITIES    AND    COMPUTED    DENSITIES 


RHCCMT=PSM/(R*TMAIN> 

TEST    ASSUMED     DENSIT] 
TEST1=ABS  (RHOCET-PHOCB) 
TEST2=A3S  (  RHOCCT-RHOCC) 
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11 


12 


1U 


20 


30 


10 
10 
10 

T    CONDITIONS    FOR    BBANCH    5-6 


TES'r3=A3S  (BHOCMl-RHOCM) 
HHCCS  =  HH0C2T 
RHCCC=aHOCCT 
HHCC."1=RH0C«T 

I?  (T2ST1.GT.  0.  C01)  30  TO 
IF  rE5T2-aT. 0.001)  30  TO 
IFJTE3T3.GT.  0.  C01)  30  TO 
INITIALIZE    THE    IN 

■T  ^  Vj  -  T  5 

W=«C+ W8 

?TIN=P0*144. 0+DP56 

DP56=0.D 

COMPUTE    FITTING    LOSSES 

DO    12    I=E,N 

TY?E=HORKI  (1,2) 

DATA1=WCBKE  (I,  1) 

DATA2  =  W0HKR  (1,2 

CATA3  =  iiiORKR  (1,3) 

9ATA4  =  W0fiKH  ll.ti) 

CALL    FITDP (W,H?,PTIN,TIN,?TOUT,TCUT,?V, D ATA  1 , DATA2 , D ATA3 , 

*  2ATAa,TYPE,DEL?,0. ,0.,J.,0.,0.,0.,0.,0.,0.,0.,0.,0., 

*  0.,0.,0.,TO) 
DP  (I)  =DELP 
DP56=DP56  +  DELP 
FITP7  (I) =PV 
PTIN=?T0UT 
TIN=TO0T 

CONTINUE 

EXIT    PRESSURE     J1UST    3E    ATMOSPHEEIC 

TZST=ABS  (PTOUT-PO*144.0) 

IF  (TEST.  LT.1.  0)    GO    TO     14 

GC    TO     11 
CONTINUE 

NCH    THE    TOTAL    PRESSURE    AT    NODE    5    IS    KNOWN    FOR    THE    ASSUilED    FLOW 
ET5=PO*144.0+DE56 

INITIALIZE    INLET    CONDITIONS    FOR    aHANCH    2-3 
PTIN=?T2 
TIN  =  TC+459.7 
DP2j=0.0 

COMPUTE    FITTING    LOSSES 
DO    20    I=A,QQ 

TYPE=WORKI  (1,2) 

DATA1  =  W0RKR  (I,  1) 

DATA2=W0fiKR    1,2) 

DATA3  =  W0RKR  (1,3) 

DATA4  =  H0RKR  (1,4) 

CALL    FITDP(H2,H?,?TIN,TIN,PT0JT,T0UT,PV, D AT A  1 , DA TA2 , D ATA3, 

*  DATA4,TYPE  .DE LP, O., ALFA D,0. , 0 . ,0 . , A DWB , A D« M, ADW C, 0 .  , O. , 0. , 

*  VDWB  ,Vl:«M,VDWC,0.  ,T0) 
DP  (I)  =DELP 

DP23=DP23  +  DELP 

FITPV  (I)^=PV 

PTIN=PTDUT 

TIN=TOOT 
CONTINUE 

INITIALIZE    INLET   CONDITIONS    FOR    BRANCH    3-5 
?T:N=F8*144.  0 

T  T  y  —^  G 

d"p35  =  0.J 

COMPUTE    FITTING    LOSSES 

DO    35    I=C,SS 

TYPE=W0P.KI  (1,2) 

DATA1  =  W0RKE  (I,  11 

DATA2=K0aKR    1,2 

DATA3  =  W0RKR    1,3 

DATA4=H0RKR     1,4 

CALL    FITDP]w8,H 


DATA4,TYP 


PTIN,. 
ALFAC, 


VCWC,5.,0ri0.rHftoCC',  T(3) 


IN,PTOaT,TOUT,PV,DATA1,DATA2,DATA3, 
0.,AC«3,ACrtH, ACWC,0. ,0- ,0., VCWB,/C*; 
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35 


40 


45 


50 


DPfl) 


DZLP 
DP35  +  DEI? 


XHAUST    FLOW    : 
COOLIIiG    FLOW 


'OR 
A5 


CC 
CC 
3- 

11 

IF 


CC 
CC 

IF 
IN 
EX 
TE 
12 
IM 
EX 
IF 
IN 
PT 
D? 
•II 
CO 
DO 


REVISE    IIIIET    CONCIIION    TO    SHAtlCH 


:d  losses  repeat  iteration 


i^ 


0))     GO    TO     5 


CO 

IN 
14 
PT 
Tl 
Dr 
CO 
DO 


FITPV  fl)  =P7 

PTIN=PTCOT 

TIN=TOUT 

LOSS    IN    THE    MAIN    ENGINE 

THANSFEaED    TC    THE     :10DOLE 

IF  (TYPE. £Q.  16)     LCSS  =  DELP 
NTIN'JE 

.^PAHE    EXIT    PEESSJRE    TO    ?T5, 
5    AND    REPEAT    IF    NECESSARY 
ST=ABS (PT0UT-ET5) 
{TEST.I:T.1- 0)    GO    lO    40 

?TIN=P0*14  4.0*DP3  5*DP56 

GO    T3    3  0 
NTINUE 
"PARE    ASSUMED    LOSSES    TO    COaPUT 

ESQUIRED 
10SS=INL0SS*5. 19696 
LCS3=EXL0SS*5.19b9  6 
ST1=ABS (DPI 2+DP2  3-r  NLOSS) 
ST2  =  ABS  (DP3  5*:P5o-SXLOS3) 
L0SS=(DP12  +  DE23)/5.  19696 
LOSS=(DP35>DP56)/5.  19696 

TEST1.  GT,  1.0)  .OR.   (TEST2.GT.  1 

-lALIZE    LOSSES    FOR     BRANCH    2-4 
IN=PT2 
24=0.0 
N=T0*459.7 
aPOTE    FITTING    LOSSES 

50    1=3,  SR 

TYPE=WORKI  (1.2) 

DATA1  =  W0KXH  (I,  1) 

DATA2  =  K0RKH    1,2) 

DATA3  =  WCRKR    1,3) 

DATA4  =  H0RKR     I,4i 

CALL    FITDP  (ttC,H?,?TIN,TIN,  PTOUI,TODT 
DATA4,TYPS.DEL?,0.,ALFAD,0.  ,J.  ,0.  ,a 
'/DWB.7E*M,VDMC,0.,  TO) 

DP  (I)  =DEL? 

DP24=DP24  +  DEIP 

FITPV fl) =P7 

PTIN=  PTOUT 

Ti;j=TOUT 

IF  (TYPE. ZQ.  26)     Ti10D=T0UT 
NTINUE 

ITIALI2E    INLZI    CONDITICNS    FOE     3EANCH 
=TOUT 

IN=PT3UT+  (K*  (  (WC/RHCSTD* 6 0.0)  -CFM^IAX)  ♦*2+DPKAX)  *5 
N  =  T4 
45=0.0 
MPUTE    FITTING    LOSSES 

60    I=D,TT 

TYPE=WORKI  (1,2) 

CATA1  =  W0RKH  (I,  1 

DATA2=W0HKE    1,2 

DATA3=*0SKH    1,3 

DATA4  =  W0HKR    1,4) 

CALL    FITDP  (WC,HP,?TIN 
DATA4, TYPE, DELP, ALFA    ^ 
VCWC ,0.,O.  ,0-,RHOCC, lO) 


NOLE    5,    ENERGY    13 
A    PRESSURE    GAIN. 


,?V, DATA1,DATA2,DATA3, 
5R3, ADKM, ADWC,0. ,0. , 0. 


4-5 


19o96 


IN, PTOUT, TOUT,? V, DATA  1, DA TA2, DATA  3, 
0.  ,  ACWBfACKM,  ACI'C,  J.  ,  0  .  ,  0  .  ,  V  CV'B,  V  CWM  , 


=  DELP 


DP  (I) 

DP45=DPu5*DEIP 
FITPV  (I) =PV 

PTIN= PTOUT 

TIN=TOnT 

THE   .10DULE    FLOW    GET    A    3003T 

OF    M.OMENTa.l    FR0.1    THE    HIGHER 

IF  (TYPE. £Q.  15)     GAIN=DELP 


IN    PRESSURE     SY    A    TRANSFER 
VELOCITY    :UIN    EXHAUST    FLOW 
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60 


70 


500 
600 
601 


CC 

TZ 
17 


CA 
^ 

DP 
D? 
DP 
DP 
D? 
DP 
PS 
WR 
CO 
FO 
FO 


IF 
NTI 


(TE 
CC 
MA 
WC 
GO 

STE 

LL 
W2 

12  = 

23  = 
35  = 
5o  = 

24  = 
45  = 
INT 
ITS 
NT  I 

EMA 


(TYPE.  2 
NOE 

THAT  EX 
AflS (PTO 
5T.LT.  1 
CLING  F 
TCHED 
=WC+0.1 

TO     5 
M   IS     .1A 
OOTPaT( 

5?i  V5! 

DP23/5- 

DP35/5- 
DP5o/5. 
DP2U/5- 
DP45/5. 
SHANCH 


Q.26)     T^OD  =  TCaT 

IT    FF.ES30RE    IS    PT5,    IF    N'OT    REPEAT 
UT-FT5) 


0)    GO    TO     70 

LOW    IN    INCREASED    d'i    SMALL    STi 


PS     UNTIL    SYSTEM 


HE 
Eli 


:3RN 


(•         PO 

Vsx,' 

/5X,' 


TCEED 
TO, PO- 
TS.SFC 
19696 
19696 
19696 
19656 
196S6 
19696 
LCSS 
)     LP12 


PRINT    RESULTS 

HOMID,HF,IJPT,  N.HORKI,  DP,  F  I  TPV,  I  NLOSS  ,  EXLOSS,PC, 

,I54,NG,  jEHIAL,  TMOD) 


SUMMARY 

,  DP  23,  DP  3  5,  DP  56,  DP  24,  DP  4  5 


UEfi    POINT     IS    NOT    ON    THE    PER  FOR  i1  ANCZ    MAP.') 
LOSS    BRANCH    1-2 : • ,F 1 2 . 2,/5 X , ' LOSS    ERANCH   2-3:',F12.2, 
LOSS    BRANCH    3-5 : • , F 1 2 . 2 , /5 X , ' LOSS    ERANCH    5-6:',F12.2, 
LOSS    BRANCH    2-4 :', F 1 2. 2, /5X ,' LO SS    ERAHCH    4-5:',F12.2) 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c*** 


SYSTZ.1    FOUR    .1ATCHIUG 

THIS  SYSTEM  HAS  SEPAR 
MODQIE  JOOLING.  NODE 
ENGINE  EXHAaST.  FOR 
5  IS  CO;iP0T2D  £CWN  TH 
PRESSURE  FR0.1  ERANCHE 
THE    ITERATION    PROCESS 


su 

+ 
BE 

■f 
•f 
♦ 

IN 

DI 
GA 
DA 
TH 
PP 
QQ 
RH 
SS 
A  = 
B  = 
C  = 
D  = 
IN 
IN 
EX 
IN 
3  A 
LO 
IN 
WC 
IN 
DP 
DP 
IN 

t:i 

IN 

ET 
P.I 
PS 
SE 
IN 
DO 


BROOTINE 


CC 
GE 
CA 
y 
IF 


CC 

IN 
DP 

11 


AL    TCBKR 
INLOS 

DATA2 

T54,S 

DAIAU 

H^AIN 

PV3,P 

TE3EB    »0 

IN 

.PENSION 

S    CCNSTA 

I A    E/5  3. 

E    STARTI 

=  FIT1SI 

=  FI':iST 

=FIT1ST 

=  FinST 

fiTisr  (_ 

FIT1ST    3 

FIT1ST    tt 

FIT1ST]5 

ITIALIZE 

L0SS=4. 0 

LOSS=8.0 

ITIALIZE 

IN=-33.0 

SS=30.  J 

ITIALIZE 

=CF!1Ai1X* 

TIALIZE 

U5=100. 0 

56  =  100.0 

ITIALIZE 

CD=710. 0 

ITIALIZE 

5=F0*1 U4 

AIN=PT5* 

EC=eT5  +  G 

ARCH   FOR 

D=0 

TYEE=&0 
IF  (TYPE 
NTINUS 

T    INITIA 
IL    EN3IN 

(OFF.SQ. 
WRITE  (6 
GC    TO    5 

NTINOE 

ITIALIZE 

13=0.0 

IN=F0*14 

N=T0*459 


SYSU  (SEPIA 
ALFAC 
RHOST 
,H?,NPT,TO, 
S, EXICSS-FA 
,DATA3,T*ST 
rC,NG-DP56, 
,H, ALFAC, AC 
-HSTACX,i:4, 
VC,PVM,?S3, 
RKI, FI*1SI, 
D 

KORKI  (200,2 
NT 


SUBRCOTI 

ATE  INLE 
5  IS  TH 
THE  ASSU 
E  C  0.1  a  IN 
S  3-5  AN 
CC NTINU 

««*«*««« 

L,N,WORK 
,ACSB,AC 

c.cfmO-c 

?0,HUaiD 
NDP,DP13 
,DP,FITP 


«««*««*4i*'««««««««**4i««*4<*««*4i4i«** 


FOR    THE    ENGINE    AIR    FLOW    AND 
J'JNCTION    OF     MODULE    AIR    AND 
D    FLOW    THE    PRESSURE    AT    NODE 

EXHAUST.       THEN    THE    EXIT 
4-5    SHOULD    MATCH    FT5.       IF    NOT 


*C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
«c 


m*  ************  ********************* 

I,WORKR,HP,NPT,FII1ST,10,P0,HUBID, 

SC , AC Wd , 

FMiUX,DPMAX.K) 

,CF.'IMAX,CFM0,  DPMAX,  K  ,:i  2,  W8  ,  P8  ,  T9  , 

,DP2  4,DP3  5,DP4  5,PV,PTIN,PT0UT,DATA1 , 

V, WC,aH0STD,TEST1,TEST2,?CN,TM0D, 

•WB,ACWC,ACWM.7CWB.  VCHC  ,  VCWM  ,  TM  AIN  ,  TMO  D,  HSEC  , 
T5t«tGAtN,L0SS, PS£c,?MAlN-Pr4,PT5,I2ST3, 
PSC,?SM,BriOCBT,HHOCCT,3HOCaT,*ESTl,TESi2 
CFF,N,PP,^i5,a&,  SS,TI,A,3,C,D,i:,SERlAL,IYPE, 

)  ,WORKH(20  0,  4)  ,  FIT  1ST  (6)  ,  DP  (20  0)  ,FIT?V  (2  00) 


STOPPING    INDEX    FOR    A    BRANCH    IS    CCMPOTED 


THE    INLET     AND    EXHAUST    LOSSES 
THE    GAIN    AND    LOSS    AT    NODE    5 


THE  CCOLING 
RHOSTD/60.0 
THE     EEANCH 


FLOW 
LOSSES 


THE    MODULE    TEMPERATURE 

THE    PRESSURES    AT    NODE    5 
.0  +  DE56 
LOSS 
AIN 

A    WASTE    HEAT    BOILER    IN     BRANCH    3-5 


RKI  (1.2) 
.EQ.27)     IND 

L    PERFORMAN 
E(INLCSS,ZX 
T54,NG,0F 
0)     GC   TO    6 
,600) 

6o 


=  1 

CE    OF    ENGINE    WITH    ASSUMED    CONDITIONS 
LOSS,T0,?0,HUMID,HP,NPT,K2, W8,pa, r8,SFC, 
F) 


INLET    CONDITIONS    FOR    BRANCH    1-3 

4.0 
-7 


124 


10 


11 


C0KPUT2    FITTING    LOSSES 
DO    a     1=1, ?P 

TYPZ=&OaKI  (1,2) 

DATA1=W0RKR  (I,  1 

DATA2  =  WCRKR  (1,2 

DATA3  =  W0EKR  (1,3 

DATA4  =  W0aKR  (1,4 

CALL    FITDP  (;;2,ht>,?  TIN 

DATA4,T  YP2,i;£L?,J.  ,0. 


DP 
DP 


5-  ,T0) 
(I)  =DEL? 
I3=DP  13*DELP 


,TIN-?T0aT,T0UT,?V, DATA1, DATA2, DATA  3, 
,J.,J.,J.  ,0.  ,J. ,0.  ,  0.,0.,0. ,0. , G. ,0 . , 


FITPV  (I)=?V 
PTIN=PTOnT 

Ti:j=rouT 

a  CONTINUE 

C  CCKPUTE    NODE    5    EARAMETEHf 

C  TEMPEEAIUBE    OF    SAIN    JET, 

TMAIN=T3 
C  IF    A    BOrLZS    IS 

IF(IND.SQ.I)     TMAIN  =  770.0 
C  COMPJTZ    THE    COMBINED    FLC 

HSEC=  (1.  4213a5£-5*TMOD  +  . 

HMAIN=(1  .  560  51E-5*T!1AIN  + 

KSIACK=(W8/(M8+ttC)  ) «HnAI 

T5=(-C-J0  0  3U  17*HSTAC:<+4. 
C      ASSUME  DENSITIES  AT  NODE  5, 

RHCCC  =  PT5/  (R«T5- 
"EC/ 


ENGINE    EXHAUST 

INSTALLED    THE    TE.1PERAT0RS    IS    THE    2CIL2E    EXIT    TEMP 
♦  3.70E-3*HP 

H    TEaPERATURE    BY    MIXING    ENTHALOPIES 
221091) «rM0D>5.b373 
.22338    •rMAIN+4. 75396 


[Mor 


N*  (HC/(Sa*HC)  )  *KSEC 
33577) *H5IACk-9.5773 

on  BIN ED,    BRANCH,     MAIN 


u 


RHCC3  =  ?SEC/(P«T 
RHCCM  =  PMAIN/ (R*TMATN)_ 
CCMPUTE    VELOCITIES    AT 
VCSB=WC/  (RH0C3*ACWB) 


NODE    5,     BRANCH,    COMBINED,     MAIN 


VC";JC=  (WCtWS)  /  (EHCCC*ACWC 
:M*ACHM) 

CCMPUTE    tHE    7ELCCITV 


7CT'M  =  W8/  (RHOCM*ACHM 


P  V  3= E  HOC  5  *  VC  H  B  **  2/ 
PVC=RH0CC*7CSC**2/ 
EVM=PHOCM*7CWM**2/ 


PRESSUEES    AROUND    NODE     5 
0*32.  174) 
0*32. 174 
0*32. 174 
PRESSURES    AROUND    NODE    5 


COMPUTE    STATIC 

ESE=ESEC-PVB 

ESC=PT5-?VC 

£SK=EMAIN-?VM 

COMPUTE    DENSITIES    AROaND    NODE    5 

SHCC2T=PSB/(R*TM0D) 

RaCCCT=P5C/(H«T5) 

HKCCMT=PSM/(R*TMAIN) 

TEST    ASSUMED    DENSITIES    AND    COMPUTED    DENSITIES 

TEST1=AflS  (RHOCET-EHCCE) 

TEST2=ABS ( RHOCCT-RHOC C) 

TEST3=AaS  (RHOCMT-RHOCM) 

RHCCE=RH0C3T 

RHCCC=EH0CCT 

RHCCM=RH0CMT 

IF  (TEST1.GT.  0.  001 

IF    TEST2.  GT.O.  001 

IFiTEST3.GT.  0.  001 

INITIALIZE    INLET 

IIN=T5 

PTIN=P0*144.  0+DP56 

W=5C  +  W8 

DP56=0.0 

COMPUTE    FITTING    LOSSES 

DO    12    I=D-N 

TYPE=W0RKI(I,2) 

DATA1=W0RKH  (I,  1) 

DATA2  =  H0RKR  (1,2 

DATA3  =  W0EKB    1,3) 

DATAU  =  MCHKR    1,4) 

CALL    FITDP  (W, HP, PTIN,' 


10 
10 

10 


GO     TO 
30    TO 

'CONDITIONS    FOR     BRANCH    5-6 


:iN,PT0UT,T0UT,?V,DATA1,DATA2,DATA3 , 
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0.  ,TOf 
DP  (I)  =DEL? 
DP56=DP5o-t-DElP 


Fi:?v (I) =pv 

PTIN=?TOOT 

TIN=rOUT 

12 

CCNTINOE 

C 

EXIT    fHESSURS    MOST    BE    ATMOSPHERIC 

TE£r=A3S  (PTOOT-E0*144-0) 
IF  (IzST.LT.l. 0)    GO    TO     14 

GC    TO     11 

14 

CONTINUE 

C 

TOTAL    PSSSSORE    AT    NODE    FI7E    3ASSD 

0;J    FLOW    IN    BRANCH    5-6 
£T5=P0*144.J*DP56 
C  INITIALIZE    INLET    CONCITIONS    FOR    BRANCH     3-5 

PTIN=P8*144.  0 
30  TIN=T8 

DP35=0.0 
C  COMPOTE    FITTING    LOSSES 

DO    35    I=C,SS 

TY?E=WORKI  (1,2) 

DATA1  =  H0RKH  (I,  1] 

DATA2=W0RKR    1,2 

DATA3  =  H0RKR  (1,31 

DATA4  =  H0EKR  (I,4> 

CALL    FITD?  (W8,H?,PTIN,TIN, PIOUT, TOUT ,PV , DATA  1 , 3A TA2 -DATA  3. 

♦  DATA4-TyPE,D£LP,ALFAC,0.,AC''J3,  ACWH,  ACHC,0.  ,  0  .  ,  0  .  ,  7  CViE,  VCH  M, 

♦  vcwc,o.,o.  ,o.,aHocc,T(5) 

DP  (I)  =D£L? 
DPj5=DP35*DEIP 
FITP7 (I) =PV 
PTIN=^TOUT 
TIN=TOnT 
C  LCSS    OF    PRESSURE    DUE    TO    MOHENTUM    EXCHANGE    WITH    SLOWER    JET, 

C  THE    MODULE    COOLING     FLOW 

IF  (TYPE-EQ.  16)     LCSS  =  DZL? 
35         CONTINUE 
C  BRANCH   EXIT    PRESSURE     MOST    BE    PT  5    OR    REPEAT 

TEST  =  AES  (PT0UT-PT5) 
IF  (TEST.  LT. 1.0)    GO    10    40 
PTIN=P0*144.0*D?3  5-»-DP56 
GO    TO    3  0 
40  CONTINUE 

C  COMPARE    ASSUMED    LOSSES    TO    COMPUTED    LOSSES,     REPEAT    ITERATION    IF 

REQUIRED 

:;uoss 


(DP13-INLC3S) 
(DP35  +  DP56-EXLCS3) 
T3/5.  196  96 

EXLCS3=(DP35  +  DF56)/5.  19696 
-"■■TESil.GT     "     "■      '-      


i;<iOSS=INLOSS*5.1969  6 

EX  10 SS=E XL  OSS* 5. 1969 6 
TEST1=ABS  (DP13-INLC3S 
TEST2=ABS 
i:;iOSS=DPT3/5. 

35  +  D] 
IF  ({TESi  1  .GT.  1  .0)  .OR.   (TEST2.GT.  1.0)  )     GO    TO    5 
INITIALIZE    INLET    CONDIIIOjS    FOR    BRANCH    2-4 
?TIN=PO* 144,0 
TIN=TC*459.7 
DP24=0.0 

COMPUTE    FITTING    LOSSES 
DC    2  0    I=B,QQ 

TY?E=WORKI  (1-2) 

DATA1  =  W0RKR  (I,  1) 

DATA2  =  W0RKH    1,2) 

DATA3  =  H0RKR  (I,  3 

EAIA4  =  H0RKR  jl,4)^ 

CALL    FITDP fKC,HP,?TIN,TIN,PTOUT,TOUT,?V, DATA1,DATA2, DATA3, 

♦  DATA4,TYPE,:r:LP,0  .  ,  A  LEAD,  0.  ,0.  ,  0  ,  ,  ADWB  ,  ADW  M  ,  ADHC  ,  0  .  ,0.  , 

♦  VDHB ,VCHH,7DHC,0.,0., TO) 
DP  (I)  =DELP 
DP^4=DP24*D£IP 
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FIT?V  (I)  =  ?V 

PTIM=?TOUT 

TIN=rO0T 

IF  (TYPZ.2Q.  26)     1^00  =  1001 
20  CCNTI.iUZ 

£ia=PTODT 
T4=T0UT 
C  INITIALIZE    INLET   CONDITIONS    FOR    3HANCH    4-5 

PTIN=FT4*  (K*  (  {WC/RHOSTD*6C.O)  -CFJIM  AX)  **  2*DP  SAX  )  *  5  .  1  9696 
'IIN=T4 
DPa5=G.O 
C  COMPUTE    FITTING    LOSSES 

DC    60    1=3, PH 

TYPE=WORKI  (1,2) 

3ATA1  =  «0RKa  (I,  1) 

DATA2  =  W0RKR    1,2) 

DATA3  =  W0HKR    1,3) 

0ATAa=HORKR     I,4[ 

CALL    FITD?  {«C.HP,?TIN,IIN,PT0JT,T0UT,?V,  DATA1,DA1A2,0ATA3, 

♦  DATA  4,  TYPS,2ELP,ALfAC.O.  ,  AC:7B  ,  AC  WM,  AC;?C  ,  0.  ,  0  .  ,0  .  ,  VCV'B,  VC^M  , 
+  7CVIC,Q.,0.  ,0.,HHOCC,T(3) 

D?  (I)  =DEL? 

DP45=DP45*DEIP 

FITPV(I)=P7 

PTIN=  PTOUT 

TIN=TOUT 
C  GAIN    IS    RESULT    OF     M0MENTU.1    TRANSFER    FPOM     EXHAUST    FLOW 

IF  (TYPE. EQ.  15)     GAIN  =  DELP 

IF  (TYPE. EQ.  26)     TMOD=TOUT 
60  CCNTINOE 

C  EXIT    PRESSURE    SHOULi;    3E    PT5    OR    REPEAT    ITERATION 

TEST  =  ABS  {PT0UT-PT5) 

T'C/'T'T'C'"     T'^      1      0^      '"O     "^0      70 

C  '     ADD*A    SMALL    INCRE.IENT    TO    THE    COOLING    FLOW    AND    REPEAT    ITERATION 

wc=wc+o.i 

GO    TD    5 
C  SYSTEM   IS     .1ATCHZD,    OUTPUT    RESULTS 

70  CALL    CUTPUT(TO,PO,HU."1ID,HE,NPT,N,HORKI,  DP,  FI  TP  V,  I  NLOSS  ,  EXLOSS,HC, 

••■       i«2,y3  -? 8, T3  -3FC,  15  4, NG, Serial,  r;ioD) 

DP  13  =  5?lV5l  19b96 
D224  =  DP24/5.  19696 
DP35=DP35/5.  19696 
DPU5  =  DP45/5.  19696 
D?56  =  0P5o/5.  19b96 
C  OUTPUT    3RANCH     ICSS    SUMMARY 

WRITE     (4,601)      DP13,DP24,D?35,DP45,DP56 
500       CCNTINUE 

600  FORMATC        POWER    POINT    IS    NOT    ON    THE    PERFORMANCE    MAP.') 

601  f CEaAT (/5X,' LOSS    BRANCH    1-3 : ' , F 1 2.  2 , /5X , '  LO SS    BRANCH    2-4:',F12.2, 

♦  /5X,'L0SS    BRANCH    3-5  :  '  ,  F  1  2  .  2, /5X  ,  '  L3  SS    EHANCH    4-5:',F12.2, 
>  /5X,'L0£S    BRANCH    5-6:',F12.2) 

RETURN 
END 
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C               SYSTEM    ?IV2    aATCHING     SOBROOTINE  C 

c  c 

C               THIS    SYSTEM    HAS   CCM3INED    INLETS    AND    EXHAUST     FLOWS    FCS    THE    ESGINE  C 

C               AHE    THE    MODULE    COOLING.       THERE    IS    NO    COOLING    FAN.       THE     MOVEMENT  C 

C              OF    CCCLING    AIR    IS    ACC CMP LISHE 0    3Y    AN    EDUCTOR    ARRANGEMENT    AT    THE  C 

C               ENGINE    EXHAUST    rLANE.        THERE    IS    A    TEANSFEEOF    MOMENTUM    FROM    A  C 

C               HIGH    SPEED    JET     (ENGINE    EXHAUST    THROUGH     A    NOZZLE)     TO    A    LCH    SPEED  C 

C               JET     (MODOLE    COCLING    FLOW).        THE    SCHEME    15    TO    START    WITH    A    SMALL  C 

C               COOLING    FLOW    AND    SEE     IF    THERE    IS    ENOUGH    GAIN    AVAILABLE    FROM    THE  C 

C               EDUCTOR    ARRANGEMENT    TO    MOVE    THE    AIR.       A    PROPERLY    DESIGNED    SYSTEM  C 

C               HILL    HAVE     EXCESS    GAIN     AT    THIS    LO^    FLOW     AND    THE    ITERATION    PROCESS  C 

C               CAN    COUTINOE,     INCREASING    THE    COOLING    FLOW    UNTIL    THE    SYSTEM    IS  C 

C               MATCHED.  C 

C  C 

^4i«4i4i««4<«*4i  »*«**  ^^-^  ******************  ********  ***  ************  ***********Q 

SUEPOUTINE    SYS  5  (SEEIA L, M , WORKI, WORKR ,HP , NP T , FIT  1  ST, TO,  ? 0, H U MID , 
+  ALFAD,ADHB,  ADHC,AOVIM,ALFAC,  ACWE,  ACRC,  ACHM) 

REAL    HCBKE.HP, NPT,TO-  PO , HUMID, CFM MAa ,C FMO,  D PMA X, K,*2,W8,P8, T3 , 

♦  INL03S,EXLOSS."ANDP,DP13,DP24,DPJ5,D?a5,PV,?TIN,PTOUr,  D1TA1  , 

♦  DAI A2, DAT A3, TEST , DP , FITPV, WC ,RHOSrD, TEST  1 , TEST2,WC N, TMOD , 
♦ 

♦  DArAU,a- ALFAC-ACWB, ACWC, ACWM , VCWB , VCW C , VCWM.TMAIN, TMOD,HSEC 


♦ 


T5a,SFC,NG,D?5b, 

DArAU,a, ALf AC-ACWB, ACWC, ACWM , VCWB , VCW C , VCWM.TMAIN, TMOD. Hi 
HMAIN-HSTACK,T4,  T5, W, GAIN , LOSS , PS lC, P MAIN , ?TU,ET5 , TEST  3, 
?VB,PVC, ?VM,PS3,  PSC,?SM,RH0C3T,3H0CCT,RH0CMT,TEST1 ,IESI2 


INTEGER    WORK I, FIT  1ST, OFF, N, PP, QQ, RE, SS, A, S,C,D, SERIAL, TYPE, 

♦  IND 

DIMENSION     FOR  KI  (200,2)  ,HORKH  {-200,4)  ,FIT1ST  (6)  ^  DP  (20  0)  ,  FITPV  (2  00) 
C  GAS    CONSTANT 

DATA    R/53.  3424/ 
C  COMPUTE   THE    STARTING    AND    STOPPING    POINTS    FOR    THE    BRANCH    FITTINGS. 

PP=FIT1ST  (2)  -1 

QQ  =  FIT1ST    3)  -1 

RR  =  FIT1ST  (4)  -1 

SS  =  FIT1STl5)  -1 

A=FIT1ST  (2) 

B=tIT1ST  (3 

C=FIT1ST    4) 

D=FIT1Sl]5) 
C  INITIALIZE    THE    INLET    AND    EXHAUST    LOSSES     (INCH    WG) 

II!LOSS=4.0 

EXL0SS=8. 0 
C  INITIALIZE    THE    GAIN    OR    PRESSURE    RISE    TO    MODULE    AIR    FLOW    IN    THE 

C  EDUCTOR 

GAIN=-30.0 

LOSS  =  30.  0 
C  INITIALIZE   THE    COOLING    FLOW    TO    THE    MINIMUM    REQUIRED    FOR    THE    ENGINE 

WC=7. 5 
C  INITIALIZE    PARAMETERS    TO    START    ITERATION 

DP5t3  =  100.  0 

TMCD=710.0 

tT5=P0*l44.0+D?56 

PjAIN=PT5+L0SS 

PSEC  =  ?T5<-GAIN 
C  SEARCH    FOR    A    WASTE    HEAT    BOILEB,     THERE    PROBABLY    IS    NOT    A    BOILER 

C  INSTALLED    IN    THIS    SYSTEM. 

IND=0 

DO    4    I=C,SS 

TYrE=WORKI (1.2) 

IF  (TYPE. EQ.  27)     IND  =  1 

4  CONTINUE 

C  GST    ENGINE    PERFCRMA.iCE    BASED    ON    ASSUMED    CONDITIONS 

5  CALL    £N3INE(INICS3,EXL0SS,T0,?0,HUMID,H?,NPT,rt2,«o,P8,T8,3FC, 

♦  T54,NG,0FF) 
IF  (OFF.EQ.  0)     GC    TO    6 

WRITE  (6 -600) 
GC    TO    5  00 

6  CONTINUE 

C  INITIALIZE    INLET    CONDITIONS    FOR    SEANCE     1-2 
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D?12=0.0 

PTIN  =  ?0*1UU.O 

TIN=T0>4  5  9.7 

C  COilPOTZ    FITTING    LOSSES 

DO    a     1=1  ,?? 

TY?E=W0fiKIJI,2) 
D4TA1  =  W0RK3  (i,  1) 
DATA2=W0RKR    1,2 
DATA3  =  W0EKR    1,3) 
DATAa  =  WORKR    1,4) 

CALL    FITDP  (W,HP,?TIN,TIN,PTOaT,TOUT,?V,  DATA1,DATA2,DATA3, 
♦         DATA4,T?PE,DELP,Q.  ,  Q  .  ,0  .  ,0  .  ,  0.  ,  0  .  ,0  .  ,:i .  ,  0  .  ,  0  .  ,  0.  ,0  .  ,  Q.  ,  d  .  , 
+  0,  ,T0) 

DP  (I)  =D£LP 
DP't2=DP12*DEl? 
FITPV  (I) =PV 
PTIN=PTOUT 
TIN=TO0T 
3  CCNTINOE 

C  COMPOTE    PARAMETERS    AT    NODES    2    S    5 

C  TOTAL    PRSSSaaS    AT    NODE    2     (PSF) 

PT2=F0*iau.0-DP12 
C  DEliSITY    AT    NODE    2 

aHC2=  (PT2-PV)/  ((T0  +  a59.7)*R) 
C  VELOCITIES    AT     NODE    2,     3EANCH, 

7DWB  =  PC/(RH02*ADWB) 


COJBINED,     .IAIN 


VD;.C=  (WC*«2) /(EH02*ADWC) 
VD  BM  =  H2/  ( a  HO  2  *  ADK  M) 

TEffPERAraES    IN    :iAIl{    JET     (ENGINE    ZXHAUST)     AT    NODE    5 

TaAIN=Ta 

IF    A    EOILEH    IS    INSTALLED    TMAIN    IS    3CILEE    EXIT    TEMP 

IF  (IND.iQ.  1)     TMAIN  =  770.0+3.  70S-3«HP 

CO."*PUTZ    COMBINED    fLCH    TEMPSRATUHE    BASE    ON    2NTHAL0EIES 

HSEC=  (1.  4  213  8  5E-5*TM0E  +  .  22109  1)  *TMO0*5.63  73 

HMAIN=(1.  5  6051  E-5*TMAIN+  .22388)  *?.•!  AI  N*  4  .  75  3  5  6 

HSTACX=(W8/(W8+HC)  I  *  H  MAIN+  (SC/ (  H3  ♦HC)  )  «HSEC 

T5  =  i-C.J0  0aai7*HS.icS>4.  33577)  «H5TAck-9.57  7  8 

ASSUME   DENSITIES    AT    NODE    5,    COMBINED,    BRANCH,     MAIN 


HHCCC  =  PT5/  (R*T5) 
^/(a*TKC 
:N/iR«TMAIN) 

COMPUTE    VELOCITIES    AT     NODE    5,     BRANCH,     COMBINED,    MAIN 


RHCCB  =  PSEC/(a*TKOD) 
RriCCM  =  PMAIN/(R«TMAIN) 


10  VC«3=SC/ (RH0C2*ACHB) 

VC«C=  (WC  +  H8)  /  (EHCCC*ACWC) 

VCHM  =  K8/ (RH3CM*ACWM) 

COMPUTE    THE    V ElOCITY     PRESSURES    ASOOND    NODE    5 

?VE  =  RHCC3*VCWB*»2/(2.  0*32.  174) 

?VC=RHOCC*VCWC**2/(2. 0*32. 174 

EV«=EHOCM«  VCWM«*2/  (2.  0*32.  174 
:  COMPUTE    STATIC    PRESSURES    AROUND    NODE    5 

JSE=PSEC-P73 

FSC=PT5-?VC 

ES.''=  FMAIN-PVM 
:  COMPUTE    DENSITIES    AROUND    NODE    5 

RHCCBI=PSB/(fi*TMOD) 

RHCCCT=?SC/(R*Tr" 


RHCCMI=?SM/(E*TMAIN)^ 

TEST    ASSUMED    DENSITIES    AND    COMPUTED    DENSITIES 

TEST1=ABS  (RHOCET-RHOCE) 

TEST2=ABS ( RHOCCT-RHOC C) 

TEST3=ABS  (RHOCMT-EHOCM) 

RHCCB  =  RHOCBT 

RHCCC=RHOCCT 

HHCCM=RHOCMT 

IF  (TEST1  .GT.  0.  001)     GO     TO    10 

IF    TEST2.Gr.  0.  001)     GO    TO    10 

IFiTEST3.GT.  J- COIj     30    TO    10 

INITIAIIZZ    INLET    CONDITIONS    FOR    BRANCH    5-6 
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11 


12 


14 


20 


30 


35 


1IN=T5 

?riN  =  fO*1  44.  0  +  EP55 

DP56=G.O 

CC«PUT2    FITTING    LOSSES 
00    12    l=d,  N 

TYPE=HORKI  (1,2) 

DATA1  =  WCHKR  (I,  1) 

DATA2  =  WCRKR  (1,2) 

EATA3  =  «0EKR  (1,3) 

DATA4=H0SKR    1,4 

CALL    FITDP  (W.HP,?TIN,IIN,?T0ar,T0'JT,?V,DATA1,DATA2,DATA3  , 

DATAU.T YPE,DELP,0. ,0.,0.,0.,J.,J. ,0.  ,0.  ,0.,0.  ,0. ,0.,0.,0., 
0.  .TO) 

DP  (I)  =DELP 

DP56=DP56*DEIP 

FITPV  (I)=PV 

PTIN=PTOUT 

TIN-rOUT 
CONTINUE 

EXIT    PEESSJRE    SHOULD    BE    ATMOSPHESIC,    IF    NOT    REPEAT 
TEST=ABS  (FTOUT-PO*144.0) 
17  (TEST.  LT.1.  0)    GO    TO     14 

GO    TO     1  1 
CONTINOE 

PT5  =  P0*14U.0-f  DP56 

INITIALIZE    INLET    CONDITIONS    FOR     BfiANCH    2-3 
PTIN=PT2 
TIN=T0+459.7 
DP23=0.0 

CCCPUIE    FITTING    LOSSES 
DO    20    I=A.QQ 

TYPE=WORKI  (1,2) 

DATA1  =  H0RKR  (I,  1) 

uATA2=«0HKH    1,2) 

DATA3  =  i<0RKR  (1,3) 

CATA4=i«0HKR  (1,4) 

CALL    FITD?  (B2,H?,?TIN,TIN,?T0aT,T0UT-PV, D AT A1 , DAT A2 , 0ATA3, 
DATA4.TYPE,CiLP,0., ALFAD,0.  , 0 . , 0 . , A DWB , A DWH, ALWC , 0 .  , 0  .  , 
►  VDHB  .VD«M,VDHC,0.,0.,T0) 

DP  (I)  =DE1? 

DPz3=DP23>DEIP 

FITPV  (I)  =  P7 

PTIN=PTOUT 

IIN=rOUT 
CONTINOE 

INITIALIZE    INLET    CONDITIONS    FOE    3BANCH    3-5 
PTIN  =  P8*144.  0 
lIN=Tg 
DP  ^ 5  =  0    3 

CCrPUTE    FITTING    LOSSES 
DO    35    I=C,SS 

IY?E=WORKI  (1,2) 

nATAl=HOaKR  (I,  1) 

DATA2  =  W0RKS    1,2' 

DATA3  =  W0RKR  (1,3 

DATA4  =  W0RKH  (1,4' 

CALL    FITDP  (Ra,HP,PTin,TIN,?T0aT,T0UT,?7,  0  AT  A  1  ,  DAT  A2  .  DAT  A3, 
•■  DAIA4  .TYPE,CELP,  ALFAC.O.,  AC^3,  ACWM,  ACSC,  0.  ,  J  .  ,  j  . ,  VC  WB,  V  CW  3, 

K        vcwc,(5.,o.  ,o.,fiAocc,i6) 

DP  (I)  =DELP 

DP35=DP35>DELP 

FITPV  fI)=PV 

PTIN=PT0UT 

TIN=T0UT 

LCSS    IS    FRO«    MOJENTUM    TRANSfZS    TO    COOLING    FLOW 

IF  (TYPE. EQ.  16)     LOSS=DELF 
CONTINUE 
EXIT    PRESSURE    SHOOLD    BE    PT5,    IF    NOT    REPEAT 
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IZST=ABS (PT0aT-PT5) 
ir  (TEST.LT.l. 0)     GO    TO    40 
PT  IN=  ?  0  *1  4  4.  0-fDP3  5+ DP  56 
GO    TO     3  0 
40  CCNII'.IUE 

:  CC.1PAF.E    ASSUMED    L03SE 

I.NIcSS=INLCSS*5.19o9  6 
£XLC53=EXL0SS*5. 19a96 
TZ2T1=ABS  (DP12+CP23-I 
TEST2=A3S (D?3  5+CP5d-S 
)P  12*DP^3)  /5. 
)?35*DP5d)  /5. 
■  ((TEST1.GT.  1  .0)  .OH- 
:  INITIALIZ2    INLET    COND 

PTIN=?T2 
lIN=T0-t-4  5  9.7 
DP25=0.0 
DO    60    1=3, HH 

TY?E=HORKI  (1.2) 
DATA1  =  W0EKR  (I,  1) 
DATA2  =  W0RKR  1,2) 
DATA3  =  W0RKR  1,3) 
DATA4=H0RXR  I,4i 
CALL    FIIDPiWC-HP,? 

♦  DATA4.TYPE,DEL?, A 

♦  VCWC,0. . 0.  ,0.,3HO 
DP  (I)  =D£L? 
DP25=DP25*DEIP 

PTIN=?TCUT 
lIN=rOUT 
:  GAIN    IS    FROM    MOMZN 

IF  (TYPE.EQ.  15)     GAI 
IF    TYPE. ZQ.  26)     130 
60  CONTINOE 

:  EXIT    PRESSURE    SHOULD 

IEST=ABS (PT0DT-PT5) 
IF  (TEST.  LT.1.0)     GO    TO 
;  INCREASE    COCLIIiG    ? 

HC  =  WC  +  0  .1 
GO    TO    5 
:  SYSTEM    IS     ;UTCHED,    OU 

70  CALL    OUTPUT(TQ,P0,HUM 

♦  W2,<J3  ,?8,T9  ,SFC,I5 
0P12  =  DP12/5.  196S6 
DP23  =  DP23/5.  19696 
D?35=DP35/5. 196S6 
0P56  =  DP5o/3.  19696 
DP:5=DP25/5.  19696 

:  OUTPUT    BRANCH    LOSS    SU 

WRITE     (4,601)      DP12,DP 
50  0       CONTINUE 

600  FORMAT  ('        POHER    POINT 

601  FC5MAT(/5X,' LOSS    B£ANCH    1-2 

♦  /5X,'L0SS    3PANCK    3-5 

♦  /5X,'L0SS    BRANCH    2-5 
RETURN 
END 


S    WITH    COMPUTED    LOSSES 


NLOSS) 

XLOSS 

19696 

19696 

[TEST2.GT.  1.0) )     GO    TO    5 

ITIONS    FOR    SfiAWCa    2-5,     NO    FAN     (NODE    4) 


TIN,TIN,PTOUI,TCaT,PV, DATA1 , DA TA2 , DATA  3, 
LFAC-O.  ,ACWa,ACRa,  ACi;C,0.  ,0.  ,0.,7CT;b,7CWM, 
CC,T0) 


TUM    TRANSFER    FRC:i    ENGINE    EXHAUST 

N=DELP 

D=IOUT 

BE    PT5,     IF    !<0T    REPEAT    ITERATION 

70 
LOP    UNTIL    SYSTEM    IS    MATCHED 


TPOT    RESUSTS 

ID,  H?,N?T,  N,'?ORXI,  £?,  F  ITPV,  I  NLOSS  ,  SXL0SS,3C, 

4,  NG,SZaiAL,  TMOD) 


MMAEY 
23,DP35,DP56,DP25 

IS    NOT    ON    THE    PERFORMANCE    MA?.') 

' ,r12.2,/5X,'LOSS  2RANCK  2-3:',F12.2, 
'  ,F12.  2,/5X,'L0SS  BRANCH  5-6;',F12.2, 
'  ,F12.2) 
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C  SYSTEM    SIX    .lATCaiNG    SOBROOTIIJE  C 

c  c 

C  THIS    SYSTEM    HAS    SEPARATE    INLETS    FOR    C00LIM3     FLOW     AND    ENGI:JE    AIR.  C 

C  THE    TKO    FLCW     JCIN    Al     AN    EUaCTOa    AfiANGEnEWI    AT    THE    ENGINE    EXHAOST  C 

C  PLANE.       THERE    IS    NO    COOLING    7AN    INSTALLED.        THE    SDUCTOH    PROVIDES  C 

C  ALL    THE    PUMPING    ACTION    3Y    .10MENTUM    TRANSFER     FROM    4    HIGH    VELOCITY  C 

C  JET     (ENGINE    EXHAOST    THHOUGh    A    NOZLLE)     TO    A     LOK    VELOCITY    JET  C 

C  (MCDOLE    COOLING    FLOW) .  C 

C  C 
(;*«*«*««*««  «**  im  urn -m**  ***************************"*****'*  *****m***m*»****Q 

SUBROUTINE    S  YS  6  (SERI A  L,  N  , '.JCRKI  ,  HOR  KR  ,  HP  ,  NP  T  ,  FIT  1  ST,  TO,  ?0,  riU  MID, 

♦  ALFAC    ACWB    ACSC    ACWM) 

REAL  WOEKR,HP,  NFT,TO,  &0  ,  H'J  MID,  C  ^M  M  AZ  -  CFM  0,  D  PMA  :C,  K  ,  W  2,  W8  ,?3  ,  13  , 

+  INLOSS.EXLCSS-DP  13,3?25,DP35,LPd6,?V,?TIN,PTCUT,DA*A1, 

+  DAI  A2,  5  AT  A3,  TEST  ,DP,f  IIPV,  nX  ,RriOS  ID,  TEST  1  ,  I  E  ST2  ,:4C  N,  TMOD  , 

♦  T54    SrC    NG 

♦  DArAU,K' ALrAC,ACWB,ACHC,  ACWM,7C:."B,VCWC  ,  VC  WM  .  TM  AIN  ,  TMOD  ,H3EC, 

♦  HHAIN,HSTACK,T5, W ,G AI H , LOS  3, PS  EC, ? M&I N , PT5 , T EST3 , 

+  PVB.PVC, PVM.PSB,  P3C,PSM, RH0C3T,aH0CCT,RHCCMT.TEST1 ,ISST2 

INTEGER    W0RKI,FIT1ST,C?F,N,PP,w:Q,RR,A,3,C,SERIAL,TY?E, 

♦  IND 

DIMENSION     HOB  KI  (200,2)  ,WOaKE  (20  0  ,  4  )  ,  FIT  IST  (  6)  ,  DP  (20  0)  ,  FITPV  (2  00) 
C  GAS    CONSTANT 

DATA    R/5  3. 34  2  4/ 
C  STARTING    AND    STOPPING    POINTS    FOR    THE    3RANCH     FITTING    INDEX 

PP  =  FIT1ST  (2)  -1 

gC  =  FIT1SI  (3) -1 

HR  =  FIT1ST  (4)  -  V  '  ■  •  ' 

A=FIT1Sr I 

B=FIT1ST (31 

C=FIT1Sl]4l 
C  INITIALIZE    THE    INLET    AND    EXHAUST    DUCT    LOSSES     (INCH    RG) 

INLOSS=4.0 

EXLOSS=8.0 
C  INITIALIZE    THE    GAIN    AND    LOSS    IN    THE    ZDUCTOR      (PSF) 

GAIN=-30. 0 

LCSS=30. 0 
C  INITIALIZE    TEH    COOLING    FLOW    TO    THE    MINIMUM     REQUIRED 

WC=7. 5 
C  INITIALIZE   OTHER    VALUES 

D?5d=100. 0 

TMCD=710. 0 

PT5=P0*144.0*DP56 

PMAIN=PT5*L0SS 

PSEC=rT5*GAIN 
C  SEARCH   FOR    A     BOILER,     THERE    PROBABLY    IS    NOT    ONE    INSTALLED    FOR    THIS 

C  SYSTEM 

IND=0 

DC    4    I=C,aR 

TY?E=30RKI  (1.2) 

If  (TYPE. ZQ.  27)     IND  =  1 

4  CONTINUE 

C  GET    ENGINE    PERFORMANCE    FOR    THE    ASSUMED    CONDITIONS 

5  CALL    ENGINE(INLOSS,EXLOSS,T0,?0,flUMID,HP,NPT,W2,H8,P8,T3,SFC, 

♦  T5  4,NG,CFF) 
Ir(OFF.E2.0)     GO    TO    ft 

WRITS  (6  -600) 
GO    TO     5  00 

6  CONTINUE 

C  INITIALIZE    THE    INLET    CONDITIONS    FOR    SRANCH     1-3 

DP13=J-0 
PTIN  =  ?0*144,  0 
TIN=T0+459.7 
C  COMPUTE    FITTING    LOSSES 

DO    8    1=1  ,PP 

TYPE=WORKI  (1,2) 
DATA1  =  HCEKR  (I,  1) 
DATA2  =  K0EKR  (1,2 


00 


DATA3  =  W0RKP.  (1,3) 

DATa4  =  W0RKa  (1,4) 

CALL  ?ITD?  (-.2. ;-:?-?  TIN,  TIN.  PI  0  J  T,  TOUT,?-/,  DAT  A  1  ,  ZA  TA2  ,  D  ATA  3, 
>  DArA4,TY?E,0£iP,0.  ,  0  .  ,  0  .  ,  5  ,  ,  J  .  ,  0  •  ,  0  .  ,0  .  ,  0  .  ,  0  .  ,  J.  ,  0  .  ,  0.  ,  0  ' 
+  0.,T3) 

DP  (I)  =Dr:LP 

DPT3=DP13*DELP 

FITPV  fI)=PV 

?TIN=?TC'JT 

Ti:;=rouT 
8         ccntinde 

c  compotz  parametzhs  for  node  5 

c  main  jet   temperature    (engine  exhaust) 

t:iain=t8 
c  if  a   30iler  is   installed,   tmain   is   30ilsh  exit  tempeeatore 

If{IND.£Q.  11     T:1AIN=7  70.0*3.70E-3*HP 

""MPUTE    COaSINEC    FLOW     TE.IPERATUSE    FOR    NODE     5, 


H 


CCMPUTE    COaBINEC    FLOW     TE.IPERATUSE    FOR    NODE     5,     USIN3    EN  IHALO  PIES 

HSEC=(1.  421385 E-5*TM0D+.  2210  91)  *rM0D*-5.  6373 

HaAIN=  (1.  3  6051  E-5*T;UIN+.22jaa)  *TaAIN+4.753S6 

HSTACK= (W8/(W8+WCJ ) * H MAI N* (WC/ ( WB  +  wC)  )  *HSEC 

15=  (- C. JO  0 aa 1 7 »HSTACK* 4. 33 577 l*HSTACK-9. 577 8 

ASSUME    NODS    5     DZNSIIIZS,    COMBINED,     3RANCH,     AND    JAIN 


[ACK=  (W8/(W8+WCJ  )  *HMAIN-f 
=  (- C.  JO  0  a«  1  7  »HSTACK*  4.  33: 
SUMS    NODS    5     DZNSIIIZS,    C( 
RHCCC  =  PT5/(R*T5) 
EHCCS=PS  EC/(R*T>!OD) 
RHCCM=PMAIN/  (R+TMAIN) 


:  CCMPUTE    NODE    5    VELOCITIES    BRANCH,     C0M3INZL    AND    MAIN 

10  VC'SB=WC/ (RH0C3*AC'-."3) 


VCKC=  (ViT +W8)  /  (RHOCC*ACWC) 
7C:«M=W8/ f  RHOCM*ACWM) 

COMPUTE    THE    VELOCITY     PRESSURES    AROUND    NODE     5 


FVE=RHOC3*VCW3**2/ (2. 3*3  2. 174) 
PVC=SHCCC*VCMC**2/  (2.  0*3  2.  174 

PVM=RH0CM*VCHM**2/    2.  3*32. 174) 
COMPUTE    STATIC    PRESSURES    AROUND    NODE    5 
£SE=PSEC-?VB 
£SC=f  T'^-PVC 
ESM=?MAIN-?7M 
;  COMPUTE    DENSITIES    AROUND    NODE    5 

RHOCET=PSB/(R*TMCD) 
aHCCCT=PSC/(R*T5) 
RHCCMT=PSM/(E«TMAIN)^ 
:  TEST    ASSUMED    DENSITIES    AND    COMPUTED    DENSITIES 

IEST1=ASS  (RHOCET-RHOCS) 
TEST2=ABS  (  RHOCCT-S  HOC  C) 
IEST3  =  ABS  (RHOCMT-nHOCM) 
RHCCE=aHCC3T 
fiHCCC=RHOCCT 
RHCCM=RHOCMT 
IF  (TEST1.  GT.  0.  001] 
IF    TEST2.GT.0.  001 
IF  JTSST3.GT.0-  001] 
:  INITIALISE    INLET    CONDITIONS    FOR    SRki^Cd     1-2 

11  TIN=T5 

?TIN=?0*1 UU. 0+DP56 
DP56=).3 
:  COMPUTE    FITTING    LOSSES 

DO    12    I=C- N 

TYPE=HORKI  (1,2)  -"' 

DATA1  =  W0EKR  (I,  1) 
DAIA2  =  H0BKa  (1,2 
DATA3  =  W0HKR    1,3) 
DATA4  =  JJ0RKR    I,4i 

CALL    FITDP(W:,HP,?TIN,TIN.PI0JT,TCUT,?V,DATA1 , DA  112 , DATA 3, 
♦         DATA4,TYPE,DZLP,  J.  ,0.,J.,J.,0.,J.,0.,0.,0.,0.,3.,0.,0.,0., 


GO 

TO 

10 

GO 

TC 

10 

'i  GO 

TO 

10 

CONDI 

:ticns 

5.  ,T0) 
DP  (I)  =D£L? 
DP56=D?5o  +  DEIP 
FITPV (1) =PV 
PTIN=PIOUT 
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12 


Mi 


20 


30 


35 


ao 


TiN=ro 

CCNTINDS 

Exiz  te;ip 

TZST=A3S  ( 
If  (TEST-L 

GO    TO 

CONTINUE 

FT5=P0*ia 

INITIALI2 

?TIN=P8* 1 

IIN=T3 

DP35=0.0 

COMPUTE    F 

DO    20    I=B 

TYEE=H 

DATA1= 

DATA2= 

DATA3= 

lATA4= 

CALL    F 

K  DaTA4 

f  V 

DP  (I)  = 

DPi5=D 

FITPV  ( 

PTIN=P 

TIN=rO 

IF  (TYP 

"CONTINUE 

COMPARE    A 

INICSi=IN 

EXI0S5=EX 

TEST1=A3S 

TE£T2=A3S 

INLOSS=(D 

£;(icss=1d 

IFj  (TEST  1 

I!IiriALIZ 

?TIM=P0*1 

TIN=T0*45 

DP  25  =  0.0 

COMPOTE    F 

DO    3  5    I=A 

TYPE=H 

DATA1= 

DATA2  = 

DATA3= 

DATA4= 

CALL    F 

^  DATA4 

♦         vcKr , 

DPJI)  = 
FITPV  ( 

PTi:i=p 
iiN=ro 

GAIN    I 

FLOW 
IF  (TYP 
IF    TYP 
CONTINUE 
EXIT    PEES 
TEST  =  ABS  ( 
IF  (TEST.  L 
NEXT    I 
UNTIL 

wc=wc+ 

30    TO 

CONTi:iOE 


OT 

ERATUEE    SHOULD    BE    ATMOSPHERIC    IF    NOT    REPEAT    ITERATION 
PTOUT-P0«1U4.0) 
T.1.0)    GO    TO     11* 
1  1 

a.0+DP56 

S    INLZT    CONDITIONS    FOR     3EANCH    3-5 

4  4.  0 


ITTING    LOSSES 

-RE 

ORKIJ 

WORKR 

WOEKE 

WOEKE 

HOEKR 

ITDP  ( 

.TYPE 

5  K3  ,  V 

DEL? 

?35>D 

I)  =  P7 

TOUT 

UT 

E-ZQ.  16)     LOSS=DELP 


?TIN,TIN,PTOJT,TOUT,?V, D ATA1 , DAT A2 , DAT A3, 
0-,ALFAD,0. ,0.  ,J.,AiWB,ADWM,ADWC,0. ,0. , 
WC,0.,0., TO) 


SSUME 
LOSS* 
LOSS* 
(DP  12 
\d935 
P  12<-D 
P35*D 
.  GT.  1 
S  INL 
ua.  0 
9.7 


D  LOSS 
5.1969 
5.1969 
♦CP23- 
+CP5o- 
P23)/5 
P56i/5 
.0)  .OE 
ET    CON 


ES    AND    COMPUTED    LOSSES,     IF    NOT    THE    SAME    REPEAL 

6 

6 

INLO; 

EXLC; 

.  196! 

.  19o 

.   (Tl- 

DITIC 


)SS} 
JSS) 

,96 
96 
;ST2.GT, 1.0) )     GO    TO 
:ONS    FOR     BRANCH    2-5 


ITTING    LOSSES 

6eKI  (1,2) 

WOEKE  (I,  1) 

WORKS  (1,2) 

WOEKE  (1,3) 

WOHKE  (I,4[ 

ITDP  (fiC, HP, P TIN, TIN, PTOJT, TOOT, ?7, DATA1,DATA2, DAT A  3, 

.  TYP  E  ,  LELP,  A  LF  A  C ,  0  .  ,  AC  wa  ,  AC'yJM  ,  AC."  C  ,  0 .  ,  0  .  ,  0  .  ,  VC  «B  ,  VC.J  M  , 

0.- 0. ,0.,RHOCC,TO) 

DEL? 

P25  +  DELP 

I)  =  ?V 

TOUT 

UT 

S    RESULT    OF     MOMENTUM    TRANSFER    FROM    EXHAUST    TO    COOLING 


E.EQ.  15) 
E.EQ.  26) 


GAIN=DEL? 
IMOD=TOUT 


SURE    SHOULD    3E    PT5,     IF    NOT    HEPZAT    I 

PT0UT-PT5) 

T.I. 01    GO    TO     40 

TERATION    IS     DONE    WITH    INCREASED 


SYSTEM    IS    MATCHED 

0.1 

5 


RATION 
OGLING    FLOW,     INCREASE 
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7  0 


500 
600 
oJI 


5Y3TE«    IS     :1ATCHZD,    OUTPUT    RESULTS 

CALL  curpaT(TO,?o,r;uMiD,HF,K?T,  :j,worki,  :p, 

"~    '"     P3,T9 -3FC,r5U,.JG, SERIAL,  I.IOD) 


♦  «2,wa -P3,T9 -3F 
DPl3=D?l5/5.  19o96 
D215  =  DP25/5.  19c96 
C? J5=DF35/5. 196S6 
D?56=Df56/5.  19696 
CUTPOT   3RANCH     LOSS    SOMMARY 


'IT?V,  ISLCSS,  ZXL0S5,WC, 


WRITE     (4,601) 
CCNTINOE 

FCEJATC        POWER    POINT     IS 
F0EJAT(/5X,' LOSS    BRANCH     1 
♦  /5X,'L0SS    BRANCH    3 

rSTORN 

e:<d 


F13,D?25,DP3  5,i)P56,  DP25 

NOT    ON    THE    PEEFCRMANCE 
-3:  • ,?12. 2,/5X,'LCSS    EE 
-5:' ,?12.2,/5X,' LOSS    EF 


MAP.') 


R  A  NC  H 
AMCH 


_    5; 
5-6 


',F12.2, 
', F12.2) 
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C  FA 
C 

C  TH 

C  LO 

C  FA 
C 

SJ 

RE 


GA 

DA 

CC 

CF 

CO 

DP 

C 

TC 

C= 

CF 

MO 

CF 

K 

CO 

wc 

BE 
EN 


N    MATCHING 

IS    SUBROai 

CATING    THE 
N    CHAEACTE 

*««*««  ««  «« 
BRO'JTINE  F 
Al  CFMSTD, 
DPMAX,K 
S  CONSTANT 
TA  H/5  3.3U 
NVERT    likS 

mstd=wc/eh 
nveet  fan 
std  =  fandp* 
is  the  pro 
represent 
:psid/cp.is 

M    IS    THE    I 
DEL 

M=  (2.0*K*C 
+  DPMAX)) 

nvert  cfm 
:j=ehostd*c 

TURN 
D 


4i  n-^-tm**** 
SU2EO0TI 

INE    PBODU 

INTEHSEC 

RISIIC    CU 

ANMAT(V<C, 
DPSID,3C, 

24/ 

FLCfl  TO  S 
OSTE*60.0 
DELTA  PRE 
(RHCSTO*R 
POF.TIONAL 
THE  SYST 
ID**2 
NTERSECTI 

FMMAX-SQa 
)/  (2.0*(K 

TO    MASS    F 
FM/60.0 


NE  C 


CES    THE    NEXT    GUESS    AT    COOLING    FLOW    3Y 
TION    OF    THE    SYSTEM    IIGDSL    CURVE    AND    THE 
RVE. 


^vm***«***9***f  *******  *t  *******  *****mtm  *****  mQ 
TO,  P0.fANDP,EHOSTD,C?M0,CFMMAX,D?.1AX,  K -WCN) 
RHOSTD,FAND?,P0,I3,C,CFM,WCN,CFJ0, CFM MAX, 


TANDAED    VOLaBE    FLOW    (CFM) 

SSUES    TO    STANDARD    CONDITONS    FOR    THE    FAN 
♦  (TO  +  a59.7)/(P0«14U.3)  )«*2 

IIY    CONSTANT    FOR    THE    OtlADfi 


M 

ON  o; 


SCIADRATIC    JODEL    ASSUMED 
THE    FAN    CHARACTERISTIC    AND    SYSTEM 


T  (  (2.0*K*CFMMAX) «*2-4.  0* (K-C)*  {K*CFMaAX**2 

-<-)  ) 

LOW 


136 


c 
c 
c 
c 
c 
c 


COMPUTE    OUTPUT    SUBROUTINE:     PRINTS    SiSTE.1    DATA  C 

C 
THIS  SDBBOOTINE  WRITES  TO  THE  OUTPUT  FILE.  IF  YOU  HAVE  AN  GUTPUTC 
FILE    AiaZADlf     IT    WILL    BE    WRITTEN    OVER    BY    THIS     PECGEAS.        IF    70U  C 

WAtNT    TO    SA.1E    TKE    PREVIOUS    RESULTS,     RENA:iE    THE    FILE.       IF    YOU    ADD       C 
OF    CHAN3E     FITTINGS    YOU    •'.USZ    .UKE    oC.E    CHANGES     HEPE-  C 

m*  *********  *m  ********************************  m****  ****************  »Q 


DIME 


ORKI  (200,2) 
ID, HP, NPT 


WRITE     (4,o02)      WC,W2,a8,P8,T3,SFC,T54,NG,TaOD 
DC     100    1=1 ,N 

DP  (I)  =DP(I)/5.  19696 
TY^E=HORi<I  (1,2) 
FITP7  (I)  =  FITPV(I)/5.19696 

GO    TO     (  1,  2. 3, 4, 5, 6, 7, 3, 9, 10,  11, 12, 13, U,  15, 16,  17, 18,  19,  2  0, 
21,22,23,24,25,26,27,  23,29,30)  .TYPE 
,,.    J,,.     „^_,^_     ■"  ,-JORKI  (1,2)  ,DP{I)  ,FITPV(I) 

,WORXI  (1,2)  ,  DP(I)  ,FITPV(I) 

,HORKI  (1,2)  ,  DP(;)  ,rIT?V(I) 


1 

WRITE 
GC    TO 

^1  ,  ^  ^1 

WORKI  (1,1) 

2 

3RITE 

\'o!^'''^ 

WORK  I  (1,1) 

30    TO 

3 

WRITS 
GC    TO 

\'o(^'''^ 

WORKI  (1,1) 

a 

HRITE 

(4,606) 
too 

WORKI  (1,1) 

GO    TO 

5 

WRITE 
GC    TO 

\'o^'''^ 

WORKI  (1,1) 

6 

WRITS 
GC    TO 

n^'^ 

WORK  I  (1,1) 

7 

WRITE 
GO    TO 

1^5^'^' 

WORKI  (1,1) 

8 

WRITS 

lo^5'^'' 

WORKI  (1,1) 

GO    TO 

9 

WRITE 
GO    TO 

IS6^^^ 

WORKI  (1,1) 

10 

WRITE 
GC    TO 

\k''' 

WORKI  (1,1) 

11 

WRITS 
30    TO 

\'ob''' 

WORK  I  (1,1) 

12 

WHITE 
3C    TO 

r,^''' 

1     W0aKI(I,1) 

13 

WRITE 

r^i''' 

WORKI  (1,1) 

GO    TO 

U 

WRITE 
GO    TO 

n^'"' 

)     WORKI  (1,1) 

15 

WRITS 

\'ot''' 

)     WORKI  (1,1) 

GC    TO 

16 

WRITE 
GO    TO 

135^^^ 

)     WORKI  (1,1) 

17 

WRITS 
GC    TO 

\l6''' 

)     WORKI  (1,1) 

18 

WRITE 
GO    TO 

IS6"° 

)     W0RKI(I,1) 

19 

WRITS 
GO    TO 

1^6"^ 

)     WORKI  (1,1) 

20 

WRITE 

iS6^^^ 

)     W0RKI(I,1) 

GO    TO 

21 

WRITE 

\'ot''' 

)     W0RKI(I,1) 

GO    TO 

22 

WRITE 
GC    TO 

\'o6''' 

)     WORKI  (1,1) 

23 

fRITE 

(4,625 

)     WORKI  (1,1) 

,  WORKI  (1,2)  ,  DP(I)  ,FITPV(I) 
,  WORKI  (1,2)  ,  DP(I)  ,FIT?V(I) 
, WORKI  (1,2)  ,DP(I)  ,FITPV(I) 
,  WORKI  (1,2)  ,  DP(I)  ,FITPV(I) 
,WO£KI  (1,2)  ,DP(I)  ,FITPV(I) 
,  WORKI  (1,2)  ,  DP(I)  ,FITP7(I) 
,  WORKI  (1,2)  ,DP{I)  ,FITPV(I) 
,  WORKI  (1,2)  ,  DP(I)  ,FIT?V(I) 
,  WORKI  (1,2)  ,  DP(I)  ,FIT?V(I) 
,  WORKI  (1,2)  ,  DP(I)  ,FITPV(I) 
,  WORKI  (1,2)  ,  DP(I)  ,FITPV(I) 
, WORKI  (1,2)  ,DP(I)  ,FITPV{I) 
, WORKI  (1,2)  ,DP(I)  ,FITPV(I) 
,  WORKI  (1,2)  ,  DP(I)  ,FITPV(I) 
,  WORKI  (1,2)  ,  DP(I)  ,FITPV(I) 
,  WORKI  (1,2)  ,  DP(I)  ,riTrV{I) 
,  WORKI  (1,2)  ,DP(I)  ,FIT?V(I) 
,  WORKI  (1,2)  ,  DP(I)  ,FITPV(I) 
, WORKI  (1,2)  ,DP(I)  ,FITPV(I) 
, WORKI  (1,2)  ,D?(I)  ,FITPV(I) 


13'^ 


24 

25 

26 

27 

28 

29 

30 
100 

600 


60  1 
602 


603 
60U 
605 
606 
o07 
608 
oQi 
6  10 
611 
612 
o13 
61U 
Dl5 
o  1  6 
617 
618 
6  19 
o20 
621 
622 
623 
624 
625 
626 
627 
623 
b29 
630 
631 
b32 
633 


00 

U,  6  2  6)     !70RKI  (1,1)  ,WOHKI  (1,2)  ,DP(I)  ,FITPV(I) 

00 

4,6  2  7)     WORK  I  (1,1)  ,fIOEKI  (1,2)  ,  DP  ( I )  ,r  ITPV(I) 

0(5 

4,6  2  8)     KOP.KI  (1,1)  ,W0?.  KI  (1,2)  ,  3?(I)  ,f  I'rPV(I) 

00 

4,6  2S)     HORKI  (1,1)  ,WORKI  (1,2)  ,  OP(I)  ,FITPV(I) 

00 

4.6  3  0)     ;JORKI  (1,1)  ,WORKI  (1,2)  ,  DP  (I)  ,FITP7(I) 

4,6  3  1)     5J0RKI  (1,1)  ,;)ORKI  (1,2)  ,  DP(I)  ,FITPV(I) 
GO    TO    TOO 

WRITS     (4,631)     WORKI  (1,1)  ,WOaKI  (1,2)  ,  DP(I)  ,FITEV(I) 
CCNTINUE 
WRITE     (6,6 
FOEMAT(//, 
+  E,     ',16,// 


30    TO  1 

WRITE  ( 

GO    TO  1 

WRITE  ( 

GO    TO  T 

WRITE  { 

GO    TO  T 

WRITE  i 

GC    TO  T 

WHITE  ( 

GO    TO  7 

WRITE  ( 


THIS    PER 
INLET   CO 


FORMATC 
FCRi^AT( 


♦ 
■f 
♦ 

♦ 

+ 

♦  '  FITT 

+  '       ID 

FOESA 
FORMA 
FORMA 
FOR  II A 
FORMA 
FORMA 
FCEilA 
FORMA 
FORMA 
FORMA 
FORMA 
FORMA 
FORMA 
FORMA 
FORM  A 
FORM  A 
FORMA 
FORMA 
FORMA 
FORMA 
FCRMA 
FORMA 
FORMA 
FORMA 
FORMA 
FORMA 
FORMA 
FORMA 
FORMA 
FORMA 
FORMA 
RETUR 
END 


ING 


FOHMANCE    SUN    WAS    DEVELOPED    FROM    DOCI    DATA    FIL 
NDITIOtlS:       AMBIENT    TEMP     (DEC    F)',F10.2,/ 
AMBIENT    PRESS     (PSIA    "  " 

dUMIDITY    (GRAINS) 
ER:     •,F12.1,/ 
)     :    ',F12.  1/ 
LOSSES     '"■' 


',F10.2,/ 
•,F10.2,/ 


(IN.W.^.) :    ISLET' ,F8. 2,3 X, 'EX HA JST' , 


T 

16  , 

T 

16, 

I 

16, 

T 

16, 

T 

lo. 

T 

16, 

•^ 

16, 

T 

16, 

1_ 

16  , 

"" 

16, 

f 

16, 

^2, 

16, 

^ 

16  , 

r- 

16, 

1 

16, 

•^ 

16, 

I 

16, 

■^ 

lo  , 

T 

16, 

T 

16, 

i. 

16, 

■^ 

16, 

rr 

lo. 

T 

16, 

'2 

16, 

'2 

16, 

rr 

16, 

T 

16, 

T 

16, 

T 

16, 

I 

• 

,7X,I 
,  7X,I 
,  7X,I 
,7Z,I 
,7X,I 
,  7X,I 

,7x,: 

,7X,I 
,7X,I 
'7X,I 
,7X,I 
,7X,I 
'7X,I 
,7X,I 
,7X,I 

'7x;i 

,  7X,I 
,7X,I 
,7X,I 
,  7X,I 
,7X,I 
,  7X,I 
,7X,I 
^7X,I 
,  7X,I 
,7X,I 
/  7X,I 
,7X,I 
,7X,I 
,7X,I 
SEE 


TTING 
■fPE 

2,9X,r8 
2,9X,F8 
:2,9X,r3 

:2,9x,Fa 

;2,9X,F3 
■2,9X,F8 
2,9X,?3 


2,9X,F3 
2I9X'F3 

;2,9X,F8 
2,9Z,F3 

;2,9X,F3 
2,9X,F8 
2,9X,r8 
2,9X,F3 
OUTPUT 


.  ^ 
.2 
.2 

.2 
.2 
.2 
.2 

.2 
,2 

DAT 


ANCE    PA 

'       LBH/ 
'       LBM/ 

•  L3>1/ 
'       PSIA 

•  DEG 
'       L3M  ( 

•       DEi 

RPM' 

ING    lEM 

RESSURE 

INCH 
9X,F3.2 
9X,F3.2 
9X,f8.2 
9X,r8.2 
9X,F8.2 
9X,F8.2 
9X,F3.2 
9X,F8.2 
9X,F8.2 
9X,F3.2 
9X,F3.2 
9X,F3.2 
9X,F3.^ 
9X,F8.2 
9X,r6.2 
9X,F3.2 
9X,f3.2 
9X,r3.2 
9X,F3.2 
9X,F3.2 
9X,F3.2 
9X,F3.2 
9X,F9.2 
9X,f3.2 
9X,F3.2 
9X,f 8.2 
9X,F3-2 
9X,F3.2 
9X,f8.2 
9X,F3.2 
A    FILE 


HAMEIERS: '/ 
SZC  /, 
SEC'/, 

•;:  ^' 

fiV, 

FOEL) /HP*Ha 

P    O0T=' -F10 
LOSS       VELO 

W.  G.  I 

INTAKE 
STRAIG 
ELBOW, 
EL20W, 
EL  5  0  W  , 
EL30W, 
SL30W, 
SL50W, 
EL30W, 
ELBOW- 
EL  30  WS 
EL3CWS 
sB.  A  NCH 
MAIN  S 
ERANCIl 
MAIN  S 
DIF?,C 
DIFF,P 
DIFF,? 
DIr F,r 
CON  IRA 
CONTRA 
SC2 SEN 
LOUVER 
FILTER 
SILENC 
GAS  TU 
WASTE 
EXIT, A 
YOUR    C 


V, 


,3X 
.3X 
,3a 
,3X 
,3X 
,3X 
,3X 
,3X 
,3X 
,3X 
,3X 
,jX 
,3X 
,3X 
,3X 
,3X 
,3X 
,3X 
,3X 
,3X 
,3X 
,3X 
,3X 
',21 
,3X 
,jX 
,3X 
,  Ji 

'¥ 

,3a 


* 'i 


CITY 
NCH 
3HA 

ai  D 

JND, 
RND^ 

MITE 
MIT" 
RECT 
RECT 
RECT 
RECT 
,Z-S 

,IIJ 

cCT, 
,CON 

SCT, 
ONIC 
LANE 
YRAM 
RANS 
CTIO 
CTIO 

IN 

ENT 

U    s 


DEG    F'//// 

PRESSURE'/ 
W .  G  .  '  /) 
FT    INLET') 
UCT'} 

SMOOTH    RAD') 
SEGMT,9  0     DEG') 
RED, ROUND') 
RED, RECT') 
.SMOOTH    HAD') 
, SMOOTH    3AD,W/SPLT') 


MITERED, W/VANES') 
CONV/DIV    FLOW'  ) 


cL/ 


R  51  N 
HEAT 
BR  UP 
HOIC 
ON    YOUR    DISK    FO 


HAP 
DIF 

WYE') 
DIV    :iYE') 
V    WYE') 
CONV    WYE') 
AL') 

IN    LINE') 
IDAL') 
ITICNAL' ) 
N, ROUND') 
N,RECT') 
DUCT'  ) 
RANCE^) 

ECTICN')_ 
E    MODULE') 
30ILEE' ) 

TI- 


NES') 


T') 

n 


ESULTS') 
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APPENDIX    B 
FLOH    CHARTS 


/.     A^^/A/    PflOGRA/^         NO    INPUT    OR  OUTPUT     \/ARiABLES 


FlL£    DEPiK/iT/O/^S 

as       /?SAj,/^Q    rye   T£rm/n^l 

0(m  WRIT  I  Si  C     To    TH£     TEKfY)i\/AL. 

08        Disk    STl>ti,A&£  ,     Di\LT    data 

0  4      Disk  £Tdra6>s,    Pe/ifoi^mA^cc 


EDIT 


CAu_ 
BuiLD 

.   ^°    h 

> 

<) 

CALL 
COM  PUT 

COMf»ATE 

tr 

B 

> P 

CALL 
ED 

f>v 

-     i> 

A 

p 

1  TQ 


COr^PuTe 


QUIT 


EXIT 

STOP 
PRObRKt^ 


STOP 
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JI      3U\LD       SuBRouTt^Jh 

'''hBRS       AKE     No     INP^T      or.      output       VAR^Blg  S 

CJM-L£[>       By       THE       BUILD     SLA  B  I^OuTii^  S      DO 
HANDLE      /A/PlaT    /^a/d     Output      Dj^  Tj^ 


Cf\LL        INSr 

D£T£Rf^l/^ES     IN  STRUCT)  orJS 
t>ESifi£0      BY     '^(T     USB/Z     A/VO 
TYPE      OF     TERMINAL.      uSEe. 
IS       OPERATin  61 


CfiLL      SrSTEP^ 

The    SYST^nn    ClAS.^ i r/c  AT/oa/ 
IS    DBTEfZMiNEb     BY    This 
Subroutine  TM£    SYSTEM 

CLJ^SS  if=^f  cA-T/orj        SHOKNN 
IN       FiGiUR-E      2  .  fc      /S 

Represented    qy   tue 

1A/TEG£J^      V^i^iA  Que"    Cli^S^ 
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© 


SET    uP     IOENTi  F  I  CATION      Nt^MBER-S 
roR      SYSTEf^        ^ELECTED 
ao     TO      (1,2,3,4,    5",    i>)  ,    CLASS 


CLASS     1 


B 


CLASS   IT 


C 


CLASS  HX 


*       D 


CLASS  rsi 


Class  ir 


>    F 


CUAS5  XT 


SEE     TMe    PRenrvi//gAR.V      S£CrioN     OP"    THE 

uSeRS     r^ANuAL    roR.    exPli  nation    of 

IDENT  1  P>C'\T\  ON      Nttrv\8£f^5. 
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B 


C,eoH(i)  ^  113101 
6tor^(:z)  -  1 2.4  00  \ 
GeoM(3)  ^  13fclO\ 
C-,eoM(s)=  14S001 


6eoMC3)--  JZ4001 
GtOKC4)^  335"!  01 
GEOM  (5-}-- 34^001 

BRANCH    ^  t 


Geom(i)  -SIZ201 

6£or*\  (h)^  535"!  01 
BRaMC^  =  5 


>r<- 


*■<- 


GeoM(i)=  112101 
CeoM  (7.)  =  2.2.3 1  0  1 

6eoM(j)-- 224  001 
Geor^C4)^23fc\0l 
6eoM(5)--Z45"0Oi 
B«.ANCM    =  5 


GfOK\(0=  413  lOl 
GE0n\(z)^  414001 
(];G0TA(3>43S10I 
GtOM(4)--  44SO0I 
GjfcOM(5)=45fcZOI 
BRANCH  =  -S" 


Ge5rA(i)--^l3l01 
Geo  rA  (7.) -fc23l  01 

GeomC3)--635"101 
BRANCH  =  4 


1U3 


H 


DO    FROM 

l--\     TO 
BRANCH 


CALL    MENU  (M.TEI^M^T^Pe,  6C0KU) 
INPUT:    i^  ,  TERM;6e"0M(r') 
OUTPUT:    TVp£ 

THIS  suBr.out\ne  displays  ^  menu   to 

THE    U^bR.     THE    USER.    MAKfeS    A 
SElECTIO/V     TroM    TMIR.TY     f\Tl\H.Ci 
CHOICES,    rue    FITTING    ID    NUf^BEl^, 
FO^    T^e    NEXT     niTiNG     TO    B^   INPUr 


YES 


WRITE  WARNIN6 
TO    USER,   INPUT 
NiEW  IP  MUMBER 


J 


YES 


M  =  M+I 


^J0 


K 


luu 


J 


Call  select  (m,  sopil,  geom  (i:')  ,  r ype, work i,  work r.) 

\nPUT      M,  iORL,   G£Drv\(r)^  type 

ouraiT:    WORkI,WORkR 

TMlS    SwB(?OUTl/vJG-     QRAMCX6S    T^    TUE      r\TTiNC 

StLfCThD      Ff^om     TmIT      menu.        INFORM'ITION 

ABOUT      rUtr       FITTING       \S      COfH  Tf\{  \j  Qd      IM 

TMe.     ARRAxS      WOR.KI      ANO     WORkR 


6eoM(L)  =  CieoM(i)  ^ 


Call  Sumol^T  (workI,  WORKi^.tv^) 

INPUT:    \A/ORKI^  WORKR^  M 

OUTPur'     N0M1= 

THIS  Subroutine   writes   a    duct  d/^ta 

FILE 

ON     1 

■HE    USERS      D15K 

Keturn 

To    THE      N^Ai^l     rR-O^R-ANA 

1U5 


iZr.      EDiT/Na    SUBROUTINE     (ED) 

T/-IERE    ^R£   NO    INPuir    OR.      OUT  Pur      VA^uABLes, 
FOR      'naS     SuSfiouT n\yE  ,   HOv\JS^'E(^     SUS^'^ojTiAy £ s 
CALLED      BY     Tt4£    ED     SaS^iZO^  Tine      Do 

HA)ndle     jNPiAT    AND    Output  data. 


/?EAD    ThE 
DUCT   DAr/\ 

rjL£ 


ASK    TME  uSei^     IF    IT    IS 
DeSlREO    TO    CHANGjE,  DELETE, 

OR  ADD  TO  The  Dua  data  rue. 


F    CHANGE 


F     DElste 


C 


IF    ADD 


D 


Output    e:D\TED    file 

CALL      SUMOUT" 
RETURN   TO    MAIN     PROt-R^M 


1U5 


B 


OF    Twe      riTTisjG      \N     THE     DUCT 
D^TA     File     TO  6£     CHAinGED^ 


US1N6      T\Ae      h^EMU       If^      NGceSsARY, 
SELGCr     T;jE      NtiAj      r\TTiNC-.      PeSiR-ED 

AMD    Enter    imformatiow   io    That 
VARiABues     IW     Ducr    PATA     At^RAYS 
WITH     \NDEX     -SELECTED^  M,    MAY 
Be     CHANCjeD. 

CAI-L      menu 
CALL      SELECT 
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WHAT  \s  The  index   Num^eR^^^ 

or    THE     FITTING    TO    BE"    DELGTkO^ 


Re\AJ0CK  TM£    Fitting,    id 
numbers    witmin    the 
Affected    branch    so 

THAT  ID    NaN\gERS     ARE 
CONSECUTIVE    WlTWlN   T\^E 
8RAMCU    AND    A(?e    ASSOCIATED 
\/J\TM     THE    PROPEie      DATA     AnJD 
UNWANTED    Fitting    \s 
DELET£  D. 


± 


RE\MR\TE    Ths 
fWJE    0MVTTIW6 

THE    LfSST 

FITT1N6 
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D 


WHAT    IS   THE    iNiDtX    NUMBER.,  [^, 
OF    TME    riTTiNC    THAT  THE 

;^1tt1nc  is  to  be  added 
after'' 


CP^Nl    UP   TKf    DATA    ARRAYS    TO    ACCcPr  THE 
MEW    riTriMG'S      DATA     AT     THE    DESIRED 
LOCATIOM  ^  XNDEX      P^  +  1  .       REWORK.  THE 
AFFE^irEb     10     NUN\BERS     IN   THE  BRANCH 
WHERE   THE     riTT\NG     IS    ADDED 


u5iN(^    thg  Menu  if   necessary^  insert 

TWE    DATA  rOR    THE    NEV^J    FlTT/MG     AT 

THE      M+1  XMDEX 

CALL  MENU 

CALL  SELECT 


.49 


VT  .     COMPUrg"    ^uBROUTlMfc 


RHAD    THE 

Duct   data 


FIND    OUT    Twt.     SYSTEr^    CLAS5  I  h  i  cA  T  I  OM 
NUMliER. 

CLASS^   W0RKX(lj)/lOOOOO 


Based    on  the  system  class  inc at  ioaj 

NUMBei^,    SET    UP    T^E     APPf^OPRlA*!  E 
NUrviBEf^     or    QU^A/MCHES 


TO     MATCM      IME    SYSTEM     E^CTRACT 
Ft^OK     TME     PUCT      j:)ATA      TME      AREAS 
or     COA^VERG/AJiir      AND     Di\/tRG- i/MG- 
WYEi"    (ADWB  ,  ADWC.ApWM,   AC\/VB, 

Adwc^ACvYM)  And    Angles    of 
Jo^njctioms  (AlfaC  ,  AlTad) 


LOCATE    THE     AR;5AY      INDE^     NumftERS 

OP   THE     Duct  data    eile   corresPo/mO(m^ 
TO    TuE    Fi/^ST    FiTriM(^    OF    A    BRANCH 


A 
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1 


GtT     THt     AMBvFMr     0PER.AT\N(3      CONDITION     AND 
DE3>!IED     POV\'£R    SETTING,    OF  THE    ENGjlNE 


Call  opcond 


(D 


>  Call   Pwrpt 


A     TAN    IS     not     IM  stalled 
!M     CLASS     S    CR-   fc   3rSTErv\S 


YES 


NO 


GET    FAN 
CHARACTERISTICS 
CALL    FAN 


(kO    TO     THESYSTEhA    SUBROUTINE 
TAILOR.&D  TO    COrv^PuTE     PRESSURE 
LOSSES     FOP.    THE     CLASS     SYSTEM 
BElNGi    EXAMINED. 


C 
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© 


X 


^LASS  1 


CLASS    Z 


Class  3 


->r« 


returm  to 

TME     MAIN 
PROGRAM 
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This   SuSroutinj  e    \S    c*\i_i.eo     3y    the     cop^pute 

StCTtoiNJ     or      TwiE      PR.O<iR.Ar^.        ALL      VA<^iA3lES 
AR.t    iN/PiA-r     F(<oiv>    coKviP    s'l/S  f^oo  r  i^j£        i^gRe 
ArS     mo      OUT?u«r      VG«e/Ai3,uES     Re'T^RNhD      TO 
Cor^P^    ALL.     Output       \S     UjR.yTTEK)     TO     T^  E 
PeR?^OC  m  Awce       Fit_E. 


^£T  UP  TmE  STA(^T//so6r  AMD  3T0PPiAJ«r 
(N)Oe)<&S  POfe,  TMG  DATA  A(?«.Ar5  ^^OR- 
TU6    3r,a^cw(ES 


SrA(?>T     OF       ITERATkpH 
DiACT     Lossei> 

E  D  W  CT  O  f^        6  A  I  rvi 

(i  A  iM     -     -  BO.  0      (PSP) 
COOLiK/6,        Fi_0^       PA5SAfe£       LOSS 

LOSS    =  30     O      (  PSf) 

^OOL  inI  G-        FlDW 

WC^   Cfnamax-   J^    RMOSTD /^O.  o 
BRAMCH        IN)FOi?.rvA  a  Ti  dm 

PP4£-    =    lOO.  0    (fSf) 

DP  56    ^  lOO-O    (psf) 

TMOD      -7  10,0    {°f^) 

PT  5-       =    P(^  *    144-.  0  +  DPSb 
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G£r  EMGiNE    PERFofi.^^A^ice:    PAf^ArY>e refits 
Based    om  AMGlG^JT     conditiomS; 

DESiREP     HORSCPOWER.    AN  D    RT=Tv\^AMD 
iN^TlAnZg-D    OR     CU(^f^CNT      FLOW 
iTEi^ATiON         COMDiriO(^S         OF    TME 
-SYSTEM. 


CALL.     ENGINE 


C 


15U 


|MlTlAL\'ZE      INLET    C<^NDiTIOM  £,     Fo.Z 
3RASiCM      l-l 
DP\Z    ^0.0 
Pr^A  inJ  -    PT5  +L05S 
P  S  £  C     -     PtS  a-  G  a  I  kJ 
PTinJ     =      P(^    ^  144.  0 
TIN     ^     Tc^   4  45"^  .7 


B^ANCM     l-I      H^S     COMBINED       C00L\  N  (^ 
W  =   WC  +WC 


For    each     Fitting     \n    branch     1-2,, 
TO    cof*iPare     Pressure     loss     i/s/ 

DPIZ  =     DPIZ    +DELP 

IS  T[iE    PR-Essui^e    LOSS    FOR  Tue 


NOD£    2.     IS    A    TUNVCTIOM.     COI^RlXTE 

Total  pressure  and  DENSirt  at  mode-. 

PT2     r  P0  ^  144  0  -  DP12. 

RH02  -  (PTZ~pv)/((T^  +  4  5"r7)  X-  R) 


D 


15S 


Cor^pLATg:    The  f\\j^fi.f\Ge  velOcvt^es    im    twe    twrce 

^(^ftMCH    C0O(_>M0     A\R  :       VD^^JTJ   ^  WC/CflM02  *  ADWB) 
Maim    £^JGl^J£.    ;  VDia/m:   \a/2./(R.v^02  *  ADWfv^ 


cor^puTg   NODt  s    Parameters.  woDt  5"  is  a 

Convergent    wye,    mixing    5T(?£Ar^S  of    p  lF(^£'■^i?^^r 
TEMPERATUf^ES.       IP      NJO     WASTE     K£AT     JoiLER      \S 
INST^LLEP    -TE  on  pE  f^ATt/hLe    OF    Twe    ^^\N    BHA^rOCU  ^ 
£XM/i,i^Sr    FROM    TMt    EM^f/vJE      IS: 
TMA/NJ  =  Tg  ELSE^ 


Compute  temperature  in  cok\binjed  gxwai^st  5tack 
Based  on    i^i^img    Entualopy  of  coolimg    and 
EXMAUST    5Tp.tAi^S. 

COOLING   £k;TwAloPY:     l4S9C--Cl.42.l1)85e-5^  TMOD -h 

,1210^  i^')  :>e  TMOD  +  5".  G3~73> 

E^XMAlASr  ^NTMALopy.-    HMAIN -(l.gfeOSlE-5'x  rr^lAiAJ  + 

■  12338)  ^Ty\fi^\i\i  +  4.-]T3'i  t 

C0/v\5l^J5p  GNTM^LOPY:    H5TAU<^  (W8/C\N8-hWc))  ^ 

M^AI/N  +(wC/Cw8fwO)^H5EC 

&XHAUST  TEMPERATURE:     T5  =  (0. 00084-1)  ^  KSTACk- -h 

4.33577}^  HSTAa<-  ^,S7  78 
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COmPuTE     ASSUMED     DE-MSiTieS     AT     ^iODE    5 

RHOCC  =  PT5/(  R*Ty) 


CoMPuTt    VELOCITIES    AT   NODE    5"    B>AS£D 
ON    ASSUMED    Cl^  CURRf  NT    lTeRATlO^J   DENSITY 

VCW5-  wc/c^hocb^acwb) 


Compute    TMb   VELOCITY  PRt5Sat^E-S    AROcanJD 
nIode  5-. 

PVB  =RU0C6  ^VCiAjB^Wi/(2.0  ^<-  32.  l"I4) 

PVC-- f^Kocc-^  vciA/c*(x2./ra  0  ^  32  n^) 

Pvr^-RW0CM)(-V(l\A/M*-<2/(Z  O-)^  32..  114-) 


COMPUTE    TME    STATIC     PRE  SS  U  R,ES   AROUN  D 
MODE    S. 

?SB=    PSec-  ?vB 

PSC^    PTS  -   PVC 
PSM  -  PMAIN-    PvM 


G 
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COMPUTE     DENSITIES      AROUND     NODE     S 

feAS£D    Cn    static     PR.essuP.e5 

RHOCCT.     pSc/(R^T5"j' 


\^0 


LET    ASSUMED 
DENS\Tie5  fQUAL 
CO^P^'^^^    DENSITIES 


II^ITIALIZE  INLET  CONDITIONS 
FOR  Bl^ANCM  5-(o 

TIN^  TS" 

W  ^  WC  +  Wg 

PTIN  =  ?0x  144.0  +  DP?4d 

DPSt.^  0  0 


f 


FOR  t-^cK  F1TT1NC7  IN  Branch  S'-G,  call  fitpp 
To  Compute  pressuiIE   loss  in   tme  nTTi/M(i 
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TWE    Sum     DP5"fe=   PPFfc -*-  PtuP      IS 
rv^E     PRESSURE    LOSS    FOR.  TWE 
6R.ANCM. 


EXIT     PResSuf^e      FR.OM    BRAMCM    S-G 
huST  BE  ATrT\osPHei^\c^   a   BoaNiOM?.v 

COfslDlT^ON        COMPARE      COMPUTED 
OUTuEr      PRESSURE      W 1  Tm     ATrnOSPHE.Rl6 
TEST  i  ASS  (PTOUT-  p^^  144  ^) 


NO 


YES 


NEW  iiMLET  Pressure 

IS     COMPUTED    WITH 
LAST     DPSfc 


H 


COMPaTE    TOTAL        PRE-SSURE 
AT      NODE    S 

PIS'  -    P0X  144  0  -hPPS^ 


J 
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J 


INITIALIZE     INLlT    CONOlTiONS 
FOR  5RA.NCM   Z.-3 

PTIN  '  PT2. 

TIN  -T^^-^S^.7 

9PZ3  --0.0 


CALL    Fit  DP      TO     COMPUTE     PRESSURE. 
LOSS     IN   THE    FITTING.        TM  E    Su  ry\ 
DP23  =     DP23  -hDtLP 

iS  TMb    pRessuae  loss  fok    the 

BRANCH 


INITIALIZE     INLET   co^^DlT^o^^s    For 

BRANCH     3-5" 

PTiisI    =  P8  H  144. (Z^ 


TIN  -T8 
DP35'=    00 


FOR   EACH    FITTING    IN   BRANC^4     3-^ 
CALL      FiTDP     TO    COMPUTE    PflESSuii^E 
LOSS    IN    TME    F1TT1A16 


±_ 


L 


160 


© 


"The  Sum     dp35"  =   DP-35'+    DEi-P 
'S      TMe     pRt55URE     LOSS    fOd    TH£ 


N^ 


COMPARe"  EXIT   PRESSURE    fdot^     BRANCH    3S 
WITH     TOTAL    PRESSURE  AT     UOD£S,    PT  5 , 
COMPOTEO    ^^RUER. 

TEST  -•  AB5  (proar-  PT5J 


NO 


2L 


NtW    INLET    PfivESSa/?.t 
IS     COMPUrtD    WITH 
LAST  DP3? 


K 


Since  assumed   inlet  and   ExwAtAST 

LOSSES     WERE    USED     TO    COM  PUTt£    ENGlAJf 
PERFOi^MANce,    COMPARE   ASSur^itD    AMD 
COMPUTtD    LOSSES    AMD     REPEAT      ITERATiO/V 
IF      RE  Q  UlR,EO 


X. 


M 


161 


M 


ii 


TEST!   ^ABS(dPI^ +DP23-INL055) 
TESTZ  ^ABSfDP3S-HPPJ"fc-EXL05SJ 


YES 


NO 


LASlN  G     Com  PUT  t  P 
INLOSS     AND    LXLOSS 
l?EpeAT      ITERATION 


>^ 


INITIALIZE     INLET 
CONDITIOMS     FOR. 
BRANCM    Z-^ 

PTlN  =  PTZ 

DPZ4  =  0.0 

TIN  ^    T(^  -H  4g^.l 


il. 


FOR  EACH    FITTING   IN    BRANCH    Z-4,    call 
riTDP    TO    COMPUTE    PRESSURE    LOSS      /  AJ   THt 
F1TTIN6.      TME  ^UM     DPZ4  -  DPZ4   +  DELp 

IS  tme  pressui^e  loss   For  twe  bi^anch 


X 


N 
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Nl 


V 


INITIALIZE     INLET    CONDITIONS 
FOR     BI^AnCH    4-5".       INLtT 
PRESSURE    IS    A     FUNCTION/      OF 
FAN    CMARACTERlSnCS    AiND 

Flow 

riN  =  T4 

PTIN  -  PTOUT  +  (K  ^  (( 

\A/c/rHOSTD  "f^  iyOO) 

cr^^'^AAx)x^Z  -h 
DP45'  =  00 


N^ 


POR  EACH    nTT\N6    IN    BKANCW 
4-5",   CALL    FIT  DP    TO   CO^IPUTE 

PRESSURE    LOSS   IN  THE  FITTING 
THE    SatA      DP4S  =  i^P4^  +  ^£LP 

IS  THE   PRESSURE    LOSS    FOR 

THE    BRANCH 


0 
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V 


EXIT    PRESSURE    FRoM     BRANCH 

^-s  MUST  B^  ^o^AL  TO  vr5 

TEST -'ABS(PToaT-PT5^ 


NO 


YES 


il 


INCREASt    THE   ASSUMED 

COOLI^JG     FL-OW   A    5M/ALL. 
AMOUMT   And      REPEAT 
ITERATION 


B 


SYSTEM     I  S      MATCHEJ) 

CALL  0^'TPur  And   -print 

£YSTEM     /RESULTS     To    TME 


_il 


RtTuRN    TO      MAIN 
PR06R AM 
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Zr.        FITTING    PRESSUR.E     LOSS      CALCULATION 
SuBI^OUT\nE  ■       Set  up    to    COnnpurE 
PRESSURE-    LOSS    AND     VELOCITY    JP^l-fy       FOF? 
30     FITTJNC2S    LISTED    IN    TNE    MENU 


RouGm^ESS   ,     E^  0  pools' 


Compute    viscos iry  or  air,   niu^ 

AS     A      ro(NJCT(ON     OF    T£.MPER.)^TaP.E 
r^lU   =  (Z9-^5--^0-  109 JO^  ^  TIN  - 

Z  .  i  7S'8l  £'S  ^  Tin  ^^  z)  '^  lh-1 


ASSUME     A    \/ALUE     FOR.    RHO 

Ruo~-  ptin/(r.)^  tin) 


Compute    vELOcirr  op    Floia/ 


V 


B 
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b 


CC?MPurE      PRESSURE      \/£LOCirY 

PV  -   RvA0^V?^-^Z/(2  0 -X3Z.  174) 
CC?r^  PlylTE    ^TATiC     PRESSURE 

PS  =  PTIN  -  P\/ 
COMPUTE-     DENSITY    OF  GAS     trSTEl^  1 MC, 

FirriNG    USing    PeR-Fect  6,^s    Lava/ 

RHOr  =    PS/CR¥rT\H^ 


Compare    coMpuVeD   rho   And 

A3SUi^£0    RHO 

TESTrAB5(RU0T-RMo) 


VES 


USlN(i  LATEST  VALUE 
fO>i  I'^MO  COMPUTE 
VELOCITY     OF    TlOW 


Compute    ReyiMOLDs 
rn=  rhot^  dataz^v/mu 
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c 


Go  TO  THG    COr^PUTATlON    FOR   THE    TYP£    OF    FiTTiNG 


5li^PLE  Fitting 


^STRAI^HT    DUCT 


«^2 


ELBOW 


#5,fo,  10,  IIJZ  "        F 

SMOOTH     RADIUS       RECTAN6»UlAR    ELP,oW 


#7 


BRANCM    SECTION     plV.    Wr£ 


41:13 


MAiM    SECTION    DiV£R6gNT    vVVe 


M 


*I4- 

BRANCM  SECTION  COt^\J.   WYE 


*I5-  '  I    J 

\ 

MAIM   SECTION    C0NVER6£NT  WYf 


DlPruSER 


K 


#11,  18, 1'?, 20 
CONTRACTION 


■> 


L 


*2I,2Z 
INL£T    ricT&R. 


■> 


h 


#Z4 

GAS    TURBINE     MODULE 


N 


WASTE     MEAT    BO'cER 


0 


#27 


16' 


D 


Simple  r\TriN6,  coEf (^icient  (dat/\3)  Tir^e5 

VEuOCiTY      PRESSufte 
DP-  DATft3  ¥r  PV 
PT0UT=  PTIN  -DP 
TOUT  =T|N 


Q 


STRA16WT  oucr,  rR\cTioN  PAcroR.  F,  Times  ill 

'     '  D 

TitvieS    VtLOLlTY    PReS^URb         L   DATA 3      D   DATA  Z 

f-  0  Z5/(A\-0<^{0Cb/3.1  ^  t>/\T£KZ))  f- 

DP=  F^DATA3/PATAZ   ^  P^ 
TOUT=   TlM 
PTOUT--   Pr!N  -  bP 


a 


elbow    witm    r£ym0l05   number 
Correction     factok,^  KRe 

KRE   =  1 .3701  -  0.  I455'^Al06  (rn  X  I  E-^) 
DP   ^  DArTAJ  ^  KRE  ^   PV 
TOUT  -   T\N 
PTOUT  =  PTI/sJ-  DP 


^ 
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(S> 


H 


Siv^OOTH    RADIUS      RECTA  N  GiULAR.      £  l_H>0^ 

Without  v/anes,  Reyn/olds  numqe;?   coRRtcnorJ 
FRor^    TABL^    IN    TMI5    3uSR.ouriMe 
Rm^  loooo     — ^    KRE  =  11 
Rn1>10000    — ?"    KR.E     FROt^    T^-BL£ 
C=  DATA!. 

TOUT  -T  lisj 
PTOUT  -=  PTiN  -  DP 


Q 


BRANCH    SECTION    OF  A    DIVER6-IN6    WY£^.        LOSS 
IS     DEPEnJDENT    on     \/£L0ClT(t5     jM     MAIN    SECTIOfO 
CVPWM)^   COMBIAJED    SECTION   (vDW/cj,     BRANCH 
^hCTIoN  (  VOWB),  AND    Dlv^ERG^ENCE    AMGLE 

TEST   -    (ADNMf^  -  Ap  Wc)/a^DWC 


NO 


TEST 


3  830qE.-fc)AALfAD4  5-.-74£-s} 
^AcPAD  4-  |.O^t-3)9<  A(.FA  D 
4  (9.O00O  17 

5-73)-  KZ  ^(\/DwQ/vdwC»^2 


-./^n;^              VES 

^        / 

y 

^^ 

ki  =  10 

RR-  VOjS/vDvvfi^ 

11^   RR>0  8      K1--0.q 

C=    KA  j^(|.0  +  (\/DW3/VDWC)^*2- 

2 .0  ^(  ud  wb/v  dwc)  ^  COS^Alfad/ 

573;) 

z 


PV  =  RMO  >^\/D\AjC  J«-A2./(Z  0^3Zl7q) 
DP  -  C  ^  PV 

PV  =RHO  *  vowB*->(2/C2.  o  ?«-3a.  174) 

PTOuT  --    PTiA/-   Pp 
TOUT  ^TIN 


^  Q 
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J 


K 


MAlM  S&CT\ON    OF    A    0\\/£R.&^^4G     WYC 
CoeriCitNT   BASED    ON    i/CuOciTY    ratio 
C=  C).4-K-  {\0-\J  D  W  m  /  V  D  WC)  ^  ^Z 

PV^  RMO  X-  VdWc-><-X-  2/(2.0  jf  3:2,    11 4j 

P^=  RWO  A-VDWM  ^^2/(2-0^32.174) 
PrOUT=    PTIAJ  -  DP 
TOUT    =    T|/yJ 


Q 


BRANCH  SecTio/sj    OF  A   coNv;EK.&iN(b  i/^ve 

Acwc-J(-(vcw^^/vc\^/c)^)^^-2.o  )^  acvajb/ 

A6W6  ?^  (t'CWB/vy^iA/c):^-^!^    CosCAlf/'^c/sJ-i') 
PV  =  RHDCC  ^  VC(A;C ->^  ^^/(2.  .0  ^  32.,  <74-) 

DP    =   C    ¥:   PV 

PTOt\T  -   PTiN  -  DP 

TOUT   =   PTOUT/C  R^  (iHOCc) 


Q 


r^A\N     SeCTiON  OF    A    COH^J£fLG\N(3     VJ  YE 
Kl=    I  .  15-^  (ACW&/ACl^/C^^^  X-2.1  +  0- 
ALrAc/60.o)  ^  (ACWB/ACiA^c)  ^  0-4 

Test  =  abs(C  a  cvAjrn  -  ac^ajc^/z^^wc) 

IP  Tie  ST  <  C)  Ob        THEN      Kl  -  00 

C=  l.o  +-(vci^NA/\/ciA/c^  1^  ^Z-2.0  kACwn\/ 
ACWC  :>(-  (\/  Cl^/M/V(:^^y<:)'^  A2.-Z.O  ^ 

CoSCAcrAc/5-?.3)  +  fci 
Dp=  6-)f  PV 
PTOUT  -  ?T\hi  -  pp 
TOUT=    PtOUT/(R ^ RMO^C) 


Q 
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L 


M 


-> 


N 


-> 


L=SQKTC4  0^pArA\  /3-  I4it) 

LAMDA  ^   0.314,4/RN  x-^(9.2-S 
CFK  =   OATaZ  ^  LAM  DA 

C  =  C  F  R   +   P  ATA  3 

PP  =   C  :^  PV 

PTOur  =   PTlN -  DP 

Tout  =Tt(\J 


Q 


CONTRACTl  OtviS 

V  -W/CRHO  :X-  PATA4) 

PV  ^  RHO  X  \/^^2/(zo  -^^32.174) 

DP=  DATA3    XPV 

PTOuT  =  PTiM  -  DP 

Tout  =T(  m 


0 


INLET    F\LT£R,  pRbSSu^b     LOS5 
FA.SED    ON     FACE     VbLOC    iT  Y 

DP=  (  DATAZ  ^  V^  ^  DATA3.}  ^  5.iq^?fe. 

PTOUT  =  PTIN  -   D? 

TOUT  =  T|^4 


Q 
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Gas    TlARBlMe     h^ODULE    ,  6.E.    LN\-2Soo 

ro^ 

L055     BASEO      ON     MAS5     FUOUU   RAr£    OF 
COOU-INJG      AlC     TWROUGM      THE    MODUkLt 

w 

7 

DP=    (\.fc,l  £-3  ^  W  ^  X-2.  is)  ^5"  I1t<^t 

pv  -  0.0 

?To^T  -  ?riN  -  pp 

TOUT  ^  TIN  4  15.0/W    ^  (Hp/lOOOO  o  ^\0O-o^ 

y 

f 

WASTE    HEAT     B01L.£R,  6AS   S  IDE    PRESSUf?t 
Loss     BASED     ON    TUBE     BUMDLE     G£OM(£TR.Y^ 

Velocity  in   nm^rovo   passage  of  tubg 

GuMDLE^    TRlCriON       FACTOR./-     C   FcAMCTiOaJ 
OF    ReYNOL.03      IN(^MB£R 
\/=  V  ^   PATA2. 

PV=  RhoX  V  A^2-/(2.0  :?^  32,174) 

RN  =  RHD:>eV^   PATA4  /[^  U 

r  =   I   334  ^^N  ->^  X  (-0.  KS3) 

PTOUT  =   PTiH  -  DP 
Tout-  O.  oo  ^85"  ^  HP +  247  o  +T0 
R  MO  ^  (PS-  DP)/C  R^  tout) 
\/=  W(RM0  9^  data  i) 
PV-  KHO-)^  V9^?<:Z/(Z.o  -^  3Z.174-) 


RETURN    TO    SYSTEM 
SUBROUTl^Jt 
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APPENDIX    C 
OSER'S    MANQAL 

A.       GENERAL 

The  purpose  of  this  program  is  to  d.ndlyze  a  marine  yas 
turbine  installation  on  board  a  ship  complete  with  inlet, 
exhaust,  and  cooling  ductwork.  The  duct  geometry  must  be 
input  to  the  program  to  accomplish  this.  The  program  makes 
a  file  called  "duct  data"  which  contains  resistance  informa- 
tion on  each  fitting  entered.  This  file  may  be  edited  with 
the  built  in  editor  cr  if  the  user  is  satisfied  with  the 
current  design  the  file  is  read  by  the  program  and  used  in 
the  COMPOTE  section  of  the  program.  COMPUTE  uses  the  duct 
data  file  and  inputs  dealing  with  the  operating  point  of  the 
engine  to  produce  the  performance  parameters  of  the  system. 
Performance  includes  both  engine  parameters  and  duct  losses. 
All  procedures  in  the  program  are  accomplished  using  an 
interactive   terminal    session. 

There  are  two  versions  of  the  program  discussed  in  this 
user's  manual.  Version  1.0  is  implemented  on  the  NFS  IBM 
3033  computer.  Version  1.1  is  implemeatei  on  the  NPS  VAX-11 
computer. 

This  user's  manual  will  discuss  the  questions  posed  by 
the  program.  Familiarity  with  the  program  sections  and  the 
questions  asked  in  eacn  section  will  facilitate  program 
execution   and      help    produce      reasonable   results.  The   most 

critical  area  for  familiarity  is  m  the  BUILD  and  EDIT 
sections  of      the   program.  It   is     not    so      critical    in      the 

COMPUTE  section  of  the  program  because  only  two  CjUesticns 
are  asked  for  each  operating  point  run  after  the  ambient 
conditions   are    input- 
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B.   PBELIHINABY 

The  program  does  not  design  ducts  or  read  mechanical 
drawings.  The  user  flays  a  vital  role  by  interpreting  the 
system  icr  tha  program.  Some  fittings  are  easy  to  recognize 
such  as  elbows,  straight  duct,  transistions,  aiifusers  and 
contractions.  Some  are  harder  to  understand,  like  diverging 
and  converging  wyes.  Each  fitting  listed  in  the  menu  is 
sketched  for  the  user.  The  sketches  snow  a  typical  view  tut 
remember  that  the  dimensions  shewn  on  the  drawings  are  vari- 
able inputs  so  the  configuration  can  change  drastically  by 
looking  at  a  fitting  over  the  range  of  variable  dimensions. 

Before  running  the  program  the  user  should  become 
familiar  with  the  fitting  sketches.  Comparing  the  sketch  to 
the  fitting  to  be  modeled  will  assist  the  user  in  preparing 
a  list  of  fittings  for  the  system.  The  user  should  note  the 
dimensions  and  be  prepared  to  input  them  to  the  program. 

The  program  looks  for  fittings  in  a  definite  sequence. 
Branches  are  groups  cf  fittings  or  sections  of  the  ductwork. 
Branches  run  from  node  to  node.  A  node  is  an  entry,  exit, 
junction,  fan,  or  engine.  Refer  to  figure  2.6  for  the 
various  system  configurations.  Ixodes  are  indicated  in  tnis 
figure  by  tne  numbered  black  dots.  Nodes  have  numbers  from 
one  to  six.  The  branches  get  their  number  designation  from 
the  end  point  nodes.  The  user  should  become  familiar  with 
the  system  schematics  then  it  will  be  easy  to  understand  the 
order  that  the  program  will  be  asking  for  fittings. 
Branches  are  entered  in  a  sequence  from  the  lowest  number 
node  to  the  next  lowest  number  node  until  ail  fittings  are 
entered.  For  example,  a  class  three  system  enters  branches 
in  the  following  order;  1-2,  2-3,  2-4,  3-5,  4-5,  5-6.  To 
assist  the  user  when  entering  fittings  the  program  displays 
tne  current  fitting  identification  numcer  on  the  screen  with 
the  menu.    The  ID  number  is   a  six  digit  number   where  the 
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first  digit  is  the  system  class,  the  next  two  digits  are  the 
tranch  number  and  the  last  two  numbers  are  tne  sequence 
number  of  the  fitting  in  the  brancn.  A  terminal  session  has 
been  recorded  and  the  printout  annotated  to  show  tnis 
number. 

It    would  be    helpful    to    pencil   in    the    node    numbers    in    the 
system   drawings.       The   following    table    may    help. 

TABLE    II 
Node  Designations 

1  Main   air   inlet    (engine  only    or    combined) 

2  Cooling   air    inlet    or    divergent    wye 
off  main   inlet 

3  The  engine 
a"         A    fan 

5  Cooling   air    exit    or   convergent    wye 
with    main    exhaust 

6  Main   exhaust    (engine   only   or    combined) 

The   user  should    prepare    a      list   of    fittings   organized  by 
branches      and  continuous      with      regard      to    the      sequence     of 
fittings.        It's      the  old      "toe    bone      connected   to      the   foot 
bone"    idea.      As    an    example,     the   following    list    may    help, 
node   1 

vert    intake,     3    orifices,    witn    louvers 
straight   duct 
rectangular    contraction 
smooth  radius  rect   elbow 
node  3 

etc. 
Do   not      forget    to      include    abrupt      exits    where      they   appear. 
Sometimes    it  is    easy    to   overlook      an    obvious    fitting    such   as 
the    engine    module   as   part  of   the    cooling    air    ductwork. 
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Only  the  class  one  system  does  not  have  either  a  diver- 
gent wye  or  a  convergent  wye.  Class  three  and  five  have 
both.  The  divergent  wye  is  fairly  straight  forward.  The 
user  only  needs  to  enter  the  areas  indicated  in  the  sketch 
and  the  angle  of  divergence  (0-90) .  The  branch  section  of 
the  divergent  wye  is  the  first  fitting  in  branch  2-4  (2-5  if 
no  fan)  and  the  main  section  (combustion  air)  is  the  first 
fitting  in  branch  2-3.  The  combined  area  and  the  divergence 
angle  are  data  entered  when  entering  the  branch  of  the 
diverging  wye.  The  convergent  wye  is  a  more  complex.  It  is 
located  at  node  five-  The  branch  of  a  convergent  wye  should 
be  the  last  fitting  cf  branch  4-5  (2-5  if  no  fan) .  It  will 
usually  be  the  fitting  after  the  module.  The  main  section 
(engine  exhaust)  of  the  convergent  wye  is  the  last  fitting 
of  branch  3-5.  Dsually  there  are  just  two  fittings  in 
branch  3-5.  The  first  is  the  nozzle  or  extension  bolted  to 
the  exhaust  plane  flange  of  the  engine,  and  ths  last  is  the 
main  section  of  the  convergent  wye.  The  combined  area  and 
convergence  angle  are  data  entered  with  the  branch  section. 
The  convergence  angle  is  usually  zero  and  the  combined  area 
is  about  equal  to  the  sum  of  the  main  and  branch  areas. 
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FITTING  NAME: 

Vertical  intake 
with  or  without 


shaft  with 
louvers 


side  orifices. 


"T 
I 


NUMBER 
01 


SKETCH 


5  -,   INLET 


SHAFT 
AREA 


WITHOUT  LOUVERS    1 


WITH  LOUVERS 


OPENINGS 


INPOI    BEQUIREMENTS: 

1.  The   number    of  orifices    (1,2. 3, or    4) 

2.  The  cross   section   area    of    tne    verticalshaf t 

3.  With  two   orifices,     whether    they    are   adjacent 
cr    opposite 

U.      If    tnere  are   louvers  installed 


DUCT    DATA    FILE 
WCBKE  (1,1) 
shaft 
area 


ENTBIES: 
WORKR (1,2) 
0.0 


WORKfi  (1,3) 
resistance 
coefficient 


WORKS  (1,4) 
shaft 
area 


REMARKS: 

The   Icuvers  are    flat   plates    of   standard   configuration. 
The   opening   areas   are    not    required    tut   should    be 
approximately    proportional   to   those  shown  in    the 
sketch. 


REFERZNCE: 

Handbook    of    Hydraulic    Resistance,    Idel'chik 
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FITTING  NAME: 
Straight  duct. 


round  or  rectangular 


"T" 

I 

.-I 


NUMBER 
02 


SKETCH 


CIRCULAR 


(I 
b 


RECTANGULAR 


INPOT  REQUIREMENTS: 

1.  RouEd:  diameter  and  length 

2.  rectangular;  cross  section  dimensions  (a, b) 

length 


DUCT    DATA    FILE 
WORKR  (I,  1) 
section 
area 


ENTRIES: 
WORKR  (1,2) 
diameter    or 
equivalen  t 


WORKR  (1,3) 

length 


WORKR  (1,4) 
s  ecticn 
area 


REMARKS: 

Darcy-Wiesbach  Equation  used  for  resistance. 
Friction  factor  ry  correlation  by  Swamee  Z   Jain. 
Equivalent  circular  diameter  computed  for  rectangular 
sections.   Length  should  be  measured  to  the  center  of 
short  fittings  and  to  the  start  or  end  of  a  long 
fitting. 


REFERENCE: 
Mechanics 


Df    Fluids,    Shames 
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FITTING    NAME: 
Smooth    radius   round   cross   section   elbow 


NUMBER: 
03 


SKETCH, 


THETA 


INPUT    BEQUIEEMENTS: 

1.  Cross   section   diameter 

2.  Radius    of    the   turn    measured    to    the   centerline   of 
the   section 

3.  The   turn   angle 


DUCT    DATA    FILE 
WCEKE  (1^1) 
section 
area 


ENTBIES: 
W0EKE(I,2) 
0.0 


WORKH  (1,3) 
resistance 
coef icient 


WORKfi  (1,4) 
section 
area 


REMARKS: 

Turn   angle    should  be   from 


\ 


0    to    90    degrees, 


REFERENCE: 

ASHRAE  FUNDAMENTALS  198  1,  chapter  33 
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FITTING    NAME: 

Segmented  round   cross   section   elbow 
3,    4,    or  5    segments,    90    degree    turn 


NUMBER: 
34 


—  X. 


SKETCH: 


three  segments  shown 
(there  may  also  be 
four  or  five  segments) 


90    DEGREES 


INPUT    EEgUIREMENTS: 

1.  Numher    of  segments 

2.  Cross   section   diameter 

3.  Radius    of    the  turn    measured 
of    the    turn 


to   tne  centerline 


DUCT    DATA    FILE 
W0RKRj(I,1) 
section 
area 


ENTBIES: 
WOEKR  (1,2) 
0.0 


WORKR  (1,3) 

resistance 

coefficient 


V70RKR  (1,4) 
section 
area 


REMARKS: 
Note    that  the   numter 
and  exit   segments. 


of    segments  includes   the    entry 


REFERENCE: 

ASHF.AE    FUNDAMENTALS    198  1 


chapter    33 
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FITTING  NAME: 

Mitered  round  cress  section  elbow 


NUMBEB 
05 


.-i. 


SKETCH: 


OPTIONAL  CASCADED 
VANES 


THETA 


FECUIREMENTS: 

Cross   section   diameter 

Turn  angle 

Whether    or    not   concentric 

installed 


guide   vanes   are 


DUCT    DATA    FILE 
WCEKE  (1,1) 
section 
area 


ENTEIES: 
HOfiKR  (1,2) 
diaaeter 


WOF.Kn  (1,3) 

resistance 

coefficient 


WOhKH  (1,4) 
section 
area 


fiEMAEKS: 

A    Eeynolds 


number   correction    is    applied    to   tnis    fitting 


EEFEESNCE: 

ASHRAE    FUNDAMENTALS 


1981,    chapter    33 
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FITTING    NAME: 

Mitered   rectangular   cross   section    elbow 
without    turning   vanes 


NUMBER 
06 


SKETCH 


THETA 


INPUT    BEQUIREMENTS: 

1.  Height    of   the  elbow,    dimension    parallel   to    turn 
axis 

2.  Width  of   the   elbow,    dimension    in    the   turn    plane 

3.  Turn  angle 


DUCT    DATA    FILE 
WCRKE  (1,1) 
section 
area 


ENTBIES: 
WOEKR  (1,2) 
hydraulic 
diameter 


WORKR  (1,3) 

resistance 

coefficient 


WORKR  (1,4) 
section 
area 


REMARKS: 

This  fitting  has  a  Reynolds  number  correction  applied 
to  the  resistance  coefficient. 


REFERENCE: 

ASHRAE  FUNDAMENTALS  198  1,  chapter  33 
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FITTING    NAME: 

Smooth    radius   rectangular    elbow    witnout 
guide    vanes 


1" 


NUMBER: 
07 


SKETCH 


HETA 


INFOT 
1. 

2- 

3. 

U. 


FEgUIREMENTS  : 

Height    of    the  elbow,    the    aijaension    parallel    to    the 

turn  axis 

Width  of  the  elbow,  the  dimension  m  tha  turn  planel 

Eadius  of  the  elbow  measured  to  the  centerline  of 

the  elbow. 

Turn  angle 


DUCT  DATA  FILE 
WORKR  j(I,1) 
section 
area 


ENTBIES: 
WORKR  (1,2) 
hydraulic 
diaieter 


WORKR  (1,3) 

resistance 

coefficient 


FORKR  (1,4) 
radius/ 
width 


REMARKS: 

This  fitting   has    a   Reynolds   number   correction. 
The   correction    also   varies    with   the    R/W   ratio, 


REFERENCE: 

ASHRAE    FUNDAJ1ENTAIS    198  1, 


chapter    33 


i 
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FITTING  NAME:  1  NUMBER;  | 

Smooth  radius  rectangular  elbow  with  03 

splitters 

SKETCH: 


W 


THETA 


TWO  SPLITTERS  SHOWN 
(THERE  MAY  ALSO  BE 
ONE  OR  THREE) 


INPUT    BZQUIREMENTS: 

1.  Number    of   splitters,    '^i^t    '^^    ^ 

2.  Height,    distance   parallel    to   turn   axis 

3.  Width,    distance    in    turn    plane 

U.      Radius    of  eltow   to    section  centeriine 
5.      Turn  angle 


DUCT    LATA    FILE 
WCfiKE.{I,1) 
section 
area 


ENTRIES: 
W0fiKR(I,2) 
0.0 


WCHKR  (I,  3) 
resistance 

coef  f  icit;nt 


WDRKR  (1,4) 
section 
area 


REMARKS: 
None 


REFERENCE: 

ASHHAE  FUNDAMENTALS  198  1,  chapter  33 
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FITTING  NAME: 

Mitered  rectangular  elbcw  witii  vanes 


SKETCH: 


NU.MBEE 
09 


AREA 


THREE  VANES  SHOWN 

(THERE  MAY  ALSO  BE 
ONE  OR  TWO) 


INPUT    FECOIEEMENTS: 

1.  Number    of   vanes    (1, 

2.  Cross   section  area 


2,    or  3) 


DUCT  DATA  FILE 
WCRKE  (1,1) 
sect  ion 
area 


ENTEIES: 
WOEKR  (1,2) 
0.0 


WORKR  (1,3) 

resistance 

coefficient 


WDRKR  (1,4) 
section 
area 


REMARKS: 
Flat   plata 


turning   vanes   are    used 


REFERENCE: 

ASHRAE    FUNDAMENTALS    198  1,    chapter    33 
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FITTING  NAME: 

Eectangular  elbow  with  converging  or 
diverging  flew 


1  NUMBER: 
I     10 


SKETCH 


INPOT  BEOUIREMENTS: 

1.  Inlet  height,  dimension  parallel  to  tarn  axis 

2.  Exit  height,  dimension  parallel  to  turn  axis 

3.  Constant  width,  dimension  in  turn  plane 


DJCI  CATA  FILE 
WORKS  (1,1) 
inlet 
area 


ENTEIES: 
WOEKE  (1,2) 
inlet  hyd. 
diameter 


WORKE  (1,3) 

resistance 

coefficient 


WORKR  (1,4) 
out  let 
area 


REMARKS: 

Elbow    should   have  a    90    deg    turn. 
The    width   should    remain    constant 


in    the   elbow 


REFERENCE: 

ASEHAE    FUNDAMENTALS    198  1, 


chapter    33 
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FITTING    NAME: 

Two    90    degree   rectangular 
Z-shap€d  configuration 


elbows   in    a 


NUM3EE 
11 


SKETCH 


^-^^s,.,^ 

w 

1 

h">^ 

L 

**---^ 

REQUIREMENTS: 

Height    of  elbows,    dimension    parallel    to   turn   axis 

Width   of  elbows,    dimension   in    turn   axis 

The    distance    between    the    centerlines    of    the   offset 

duct 


DUCT  EATA  FILE  ENTRIES: 
W0RKR(I,1)      W0RKR(I,2) 
section       hydraulic 
area  diameter 


WORKR  (1,3)      WORKR  (1,4 
resistance  section 
coefficient    area 


REMARKS: 
None. 


REFERENCE: 

ASHRAE    FUNDAMENTALS    198  1 


chapter    33 
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FITTING    NAME: 

Two    90    degree   elbows   in 


different    planes 


NUMBER 
12 


SKETCxH, 


INPUT    EEQUIREMENTS : 

1-       Heiqht    of    eltow,    dimension   parallel    to    turn    axis 

2.  Width   of  elbcw,    dimension   in    the   plane  of    the   turn 

3.  Eistance   between   the  centerlmes   of    the    duct 
connected   to   this   arrangement 


DUCT    CATA    FILE 
WORKR  (I,  1) 
section 
area 


ENTEIES: 
ROEKR (1,2) 
Hydraulic 
Diameter 


WORKR  (1,3) 

resistance 

coefficient 


HORKR  (1,4) 
section 
area 


REMARKS: 

Resistance    coefficient 
tabulated  data. 


is   a   curve    fit    to    the 


REF  ERENCE  * 

ASHRAE    FUNDAMENTAIS    198  1,    chapter    33 
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FITTING  NAME: 

Diverging  wye,  branch  and  main  sections 


SKETCH: 


NUMBER: 
13  5  14 


BRANCH 

AREA 

(ADWB) 


COMBINED  INLET  AREA 
(ADWC) 


MAIN  JET  AREA 
(ADWM) 


INPUT    fEQUIREMENTS; 
A.      Branch    section 

1.  combined   area 

2.  branch   area 

3.  divergence    angle 


B.      Main   section 
1  .      Jiaia   area 


DUCT    DATA    FILE 
WCEKE(Iel) 
comicinea 
area 


ENTRIES:        (fitting    13) 
W0RKR(I,2)  W0fiKR(I,3) 

branch  divergence 

area  angle 


I 


WD EKE  (1,4) 
branch 
area 


REMARKS: 

The   divergence    angle    shoaid   follow   some   centerlire 
streamline.       The    areas    are   cross    section    areas 
perpendicular   to   the  streamline    in    the   sections 
away    from   the   dividing    location.      Cooling    air    flows 
through   the    cranch   section.       Mam    inlet   air    to    the 
engine    flows   through   the   main   section.       Both    flow 
through    the    combined   section. 


EEFEEENCE: 
Handbook 


of    Hydraulic  Resistance/    Idel'chik 
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FITTING  NAME 
Convergent 


wye,  irancn  and  main  sections 


SKETCH 


SCHEMATIC 


T  NUW3ER: 
j  15  &  16 


MODULE  EDUCTOR 


COMBINED 
AREA 


v_y^ 


(ACWC) 


ALFA 


MAIN 
AREA 


(ACWM) 


BRANCH 
AREA 


(ACWB) 


COMBINED 
EXHAUST 
DUCT 


MODULE 


NOZZLE 
(RECTANGULAR 

CONTRACT  ION  f°^^^'^''^°^ 


REQUIREMENTS: 

Branch    section 
tranch   area 
ccmbined    area 
convergence  angle 


B.       Main    section 
1.       main    area 


DUCT    DATA    FILE  ENTEIES:        (fitting    15) 
WORKR(I-I)  W0aKR{I,2)  W0RKR(I,3) 

combined  branch  convergence 

area  area  angle 


WORKR  (1,4) 

branch 

area 


REMARKS: 

The    branch    area    has   module   cooling    air    flowing    through 
it.      The  main   area  has    engine   exhaust    flowing    through 
it.      The  combined  area    has   both.       The    angle    should    ce 
measured  to    representative   streamlines   at    the    plane 
where    the    two   flows    meet. 


REFERENCE: 
Handbook 


of    Hydraulic   Resistance,    Idel'chik. 
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FITTING  NAME; 

Conical  diffuser 


NUMBER 
17 


L. 


SKETCH 


NFUT  BEQUIREMENTS: 

1.  Length  of  the  diffuser 

2.  Inlet  diameter 

3.  Cutlet  diameter 

U.       Is    tliere   distorted    flow 
5.      Are    tnere    dividing    wail 
reduce    resistarce 


at  the  inlet 

or  baffles  installed  to 


DUCT  DATA  FILE 
WCRXE  (I  ,1) 
inlet 
area 


ENTEIES: 
H0BKEj(I,2) 
friction 
coefficient 


WORKk  (I,  3) 

flow 

coefficient 


WO  EKE  (1,4) 

outlet 

area 


REMAEKS: 

The    program    recognizes    a   wide    diverging    angle    and 
warns    tne    user.       Resistance    in    this    case    Piav    be 
reduced   by    35   %    with   installation    of   Daffies. 


REFERENCE: 
Handbook 


of    Hydraulic   Resistance,    liel'chik 
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1 


FITTING    NAME: 

flane    in-line   diftuser 


T" 


NUMEEP. 
13 


SKETCH: 


^^  N,wo 


INPUT  EEQUIREMENTS  : 

1.  Length  of  the  diffust^r 

2.  The  constant  heigth  of  the  diffuser 

3.  The  inlet  width 

4.  The  outlet  width 
5-  Distorted  flow 

6.  Installation  of  baffles 


DUCT  I:ATA  FILE 
WOEKE  (1,1) 
inlet 
area 


ENTEIES: 
WOEKR  j(I,2) 
friction 
coeff icie  nt 


WORKR  (1,3) 

flow 

coefficient 


WOEKR  (1,4) 

outlet 

area 


REMARKS: 

The    divergence    is  assumed    to   be    uniform   witn    respect 
to   the    mam    centerline.       A   wide   divergence  angle    is 
recognized    and    the    user    is    asKed    if    dividmj    walls    or 
baffles   are    installed   to  reduce   resistance.' 


REFERENCE: 

Handbook  or    Hydraulic  Resistance,    Idel'chik 
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FITTING    NAME: 

Pyramidal    in-line   diffaser 


I     NUMBER: 


SKETCH 


NPUT  FECUIREMENTS: 

1.  lecgth    of    the   diffuser 

2.  Smaller    inlet   dimension,    larger    inlet    dimension 

3.  Dimensions    parallel    to    inlet    dimensions 

4.  Non-uniform    velocity    profile 

5.  Are   baffles    installed 


DUCT    DATA    FILE 
WCRKE  (1,1) 
inlet 
area 


ENTRIES: 
WORKR  (1,2) 
friction 
coefficient 


WORKR  (1,3) 

flow 

coefficient 


W3RKR  (1,4) 

outlet 

area 


REMARKS: 

A  uniform  divergence  with  respect  to  the  centerline  is 
assumed.   Wide  divergence  angle  is  recognized  by  the 
program.   With  a  wide  angle  the  flow  resistance  can 
re  reduced  by  35^  with  baffles  or  dividing  walls. 


REFERENCE: 
Handbook 


of  Hydraulic  Resistance,  Idei'cnik 
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FITTING    NAME: 

Transition    diffuser,    round    to    rectangular 
or   rectangular    to  round 


NUMEER 
20 


SKETCH 


BZQUIHEMENTS: 

Manner    of   transistion 

Diameter 

rectangular    dimensions 

Length    of    the  diffuser 

Non-uniform    velocity   distribution 

Installation    of    baffles    or    dividinc 


w  alls 


DUCT    DATA    FILE 
WCRKB  (1,1) 
inlet 
area 


ENTRIES: 
WOBKE  (1,2) 
friction 
coef ficie  nt 


WOi^KR  (1,3) 
flow 

coefficient 


W3EKR  (1,4) 

outlet 

area 


REMARKS: 

UDifcrm   divergence   with    respect    to    tne   centerline    is 
assumed.      Wide    divergence    angle    is   recognized    and    if 
baffles   or    dividing   walls    are   installed  the   resistance 
is  reduced    by   35?. 


REFERENCE: 
Hanitook 


of    Hydraulic  Resistance,    Idel'chik 
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FITTING    NAME: 

Circular  contraction 


._L 


NU."1BER 
21 


SKETCH: 


INPUT    EEQUIREMSNTS : 

1.  Length    of   the  contraction 

2.  Upstream    diameter 

3.  Cownstream    diameter 


DUCT  DATA  FILE 
WORKR  (1,1) 
outlet 
area 


ENTBIES; 
KOEKR  (1,2) 
0.0 


WORKR  (1,3) 

resistance 

coefficient 


WORKR  (1,4) 

inlet 

area 


REMARKS: 

If  you  need  a  transitional  contraction  you  could  use 
this  fitting  or  fitting  22.   The  area  or  the  inlet 
or  outlet  would  have  to  be  converted  to  a  circle  or 
rectangle  as  required  by  the  geometry  for  input  to 
the  program. 


I 
I 


R2  F  ER  ENCE : 

ASHRAE  FUNDdENTALS  1981 


chapter  33 
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FITTING    NAME: 
Rectangular 


contraction 


NUMBER 
22 


SKETCH 


INFOT  BEQDIEEMENTS: 

1.  Length    of   the  contraction 

2.  Upstream  dimensions 

3.  Downstream    dimensions 


DUCT  DATA  FILE 
WCRKF  (1,1) 
outlet 
area 


ENTRIES: 
W0RKR(I,2) 
0.0 


WGRKE  (I,  3) 

resistance 

coefficient 


WORKS  (1,4) 

inlet 

area 


REMARKS: 

This  fitting 
contraction, 
the  same  and 
required. 


can  te  substituted  for  a  transitional 

The  inlet  or  outlet  area  should  remain 
the  area  for  transition  converted  as 


REFERENCE: 

ASHRAE  FUNDAMENTALS  198  1,  chapter  33 
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FITTING  NAME: 
Screen 


NUMBER : 
23 


SKETCH, 


■ ' 

m 

■ 

■ 

■ 

^  ■ 

^  ■   ■ 

"  "   " 

H  ■   ■ 

H     ■      ■ 

^ , 

^ 

^ 

^ 

SCREEN  AREA 
(FREE  FLOW  MEANS  HOLE  SPACES) 


DUCT  AREA  (OVERALL  AREA) 


INPDT    EEQUIREMENTS : 

1.  Cverail    duct    cross    section 

2.  Screen    free    flow   area 


area 


DUCT  DATA 
WORKE (I, 
duct 
area 


FILE  ENTFIES: 
1)      WORKE  (1,2) 
0.0 


WORKR  (1,3) 

resistance 

coefficient 


WORKR  (1,4) 
duct 
area 


REMARKS: 

This  fitting  is  useful  for  the  screen 
the  engine  inlet.  The  free  flow  area 
all    the    holes    in    the   screen. 


in    front    of 
is    the    sum    of 


REFERENCE: 

ASHRAE    fUNDArfENTAIS     198  1,     chapter    33 
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FITTING  NAME: 
Louv€r  inlet 


—  X 


NUMBER 
24 


SKETCH 


DUCT 
AREA 


DISTANCE 

BETWEEN 

LOUVERS 


DISTANCE 

ACROSS 

LOUVERS 


O 


FLOW 


INPUT  FEQUIREMENTS: 

1.  Cistance  across  the  ioaver  openings 

2.  Distance  between  the  louvers 

3.  The  numter  of  openings  between  the  louvers 

4.  Cuct  area  just  inside  the  louvers 


DUCT  EATA  FILE 
WCRKE  (1,1) 
duct 
area 


ENTFIES: 
WOEKE  (1,2) 
0,0 


W0EK5  (1,3) 

resistance 

coefficient 


■/^ORKR  (1,4) 
duct 
ar  ea 


REMARKS; 

The   correlation    is   for    flat    louvers    with   the    front 
edges    flat    with    the   face    of    tne    louvers.       No    friction 
is  included    in    this   correlation.      Better    models    need 
to   be  developed    fcr   louvers    with    moisture   separator 
edges.      The    louver  angle   is   45   degrees    to    tne    face. 


REFERENCE: 
Handbook 


of    Hydraulic   Resistance,    Idel'chik 
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FITTING    NAME. 
Filter 


NUMBER: 
25 


SKETCH; 


FACE 
AREA 


INPUT    REQUIREMENTS: 

None    if    the    default    value    is    used. 
If    another    filter   type    is    to    be  used   then   the 
user  should    provide   pressure    loss    data   as   a 
function  of    race    velocity.      Only    a    few    points 
are    required   for    the   power   curve    fit    to   work. 
The    numter    of   points    is    an    input    (two    min.) 


DUCI    DATA    FILE 
WORKR  (1,1) 
filter    face 
area 


ENTRIES: 
WORKS  (1,2) 
multiplier 
(Af 


WORKR  (1,3) 
exponent 
(B) 


WORKR  (1,4) 
filter    face 
area 


REMARKS: 

The  power  curve  fit  is  of  the  form: 

delta  pressure  (in  WG) =  A*  (velocity) **B 


i 


REFERENCE: 

Filter    manufacturer's   data 
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FITTING    NAME: 

Multi-taffle   type  silencer 


NU1BER: 
26 


n 


SKETCH: 


1  I 


C   DISTANCE  ACROSS  DUCT 


N  IS  THE  NUMBER 
OF  GAPS 


NFUT  BEQUIREMENTS: 

1.  Gap   tetween    taffies 

2.  Earfie    thickness 

3.  Eaffle    length    (with    flow) 

4.  Duct   dimensicn   parallel    to 

5.  Duct  dimension   across    gaps 

6.  The    number    of   gaps 


gap 


DUCT    DATA    FILE 
WCfiKR  (1,1) 
duct 
area 


ENTRIES: 
WORKR  (1,2) 
0.0 


WORKR  (1,3) 

resistance 

coefficient 


WORKR  (1,4) 
duct 
area 


REMARKS: 

This   is  a   composit   model.      The   resistance    coefficient 
is    modeled    as   a    sudden    contraction,    rriction    along    the 
length   of   the   baffle,    and    a   sudden    expansion.       It    is 
not   a   very    good    nicdel  and    a    model   oased   on   experimental 
data   would    ce   better. 


REFERENCE: 

NAVSEA    Inlet 


Design   HandbooK    for    Marine   Gas    turbines 
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PITTING    NAME: 

Gas    turbine    module 


T  NU.^BERTn 
I    27     I 


._! 


SKETCH, 


GAS  TURBINE  MODULE 
**  COOLING  AIR  PASSAGES,  ONLY  ** 


INFOT  EEQUIREMENTS : 
None 


DUCT  LATA 
WCRKE (I 
1.0 


FILE  ENTRIES: 
,1)      W0RKE(I,2) 
1.0 


WOHKR  (1,3) 
1.0 


■^ORKR  (I,U' 
1.0 


REMARKS: 

This  model  is  leased  on  the  mass  flow  rate  of  cooling 
air  through  tne  module.   It  is  a  power  fit  to  data  rrcm 
General  Electric  Co.   I t  should  be  good  as  long  as 
entry  and  exit  areas  remain  aoout  the  same.   The  1.0' s 
in  the  duct  data  file  are  there  to  prevent  division  bv 
zero  in  the  urogram  and  are  not  actually  used. 


REFERENCE: 

Manufacturer's    data 
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FITTING  NAME: 

Waste  heat  recovery  boiler 


NQMBEB: 
28 


SKETCH: 


NUMBER  OF  ROWS 


EQUIVALENT 
-vX^   DIAMETER 


NUMBER  OF  ' 
TUBES  IN  A 
ROW 


[ 


y^ 


V 


w 


} 


ISTANCE  BETWEEN 
ROWS 


DISTANCE  I 

BETWEEN 
TUBES  IN  A 


ROW 


INEUT    FEQ0IRE.1ENTS: 

A   default   is  available.       It    is    based  on   current    design 
considerations    in   the   racer    program.       Should    you 
choose    not    to   use   it   several    inputs    are   required. 
Read   the  reference   and    be    prepared    to   enter    the    values 
shewn   on   the  sketch    and    a    *ew    you    will    have    to    compute 


yourself    (i.e.    tube   eguiv.    dia.    and    hydraulic    dia 


r. 


DUCT  DATA  FILE 
WCRKE(I,1) 
duct 
area 


ENTRIES: 
W0RKR(I,2) 
0.0 


WORKR  {1,3) 
resista  nee 
coefficient 


WORKR  (1,4) 
luct 
area 


REMARKS: 

If  the  manufacturer  will  provide  the  data,  write  your 
own  model,  but  this  should  be  close  for  preliminary 
studies. 


REFERENCE: 

Extended  Surface 
pages    562-589 


Heat   Transfer,    Kerns    and    Krauss 
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FITTING  NAME: 
Abrupt  Exit 


NUMBER: 
29 


SKETCH: 


OUTLET  AREA 


INPUT  REQUIREMENTS: 
1.   The  exit  area 


DUCT  DATA  FILE  ENTEIES: 

JvORKR(I^I)  F0EKR(I,2) 

exit  0.0 
area 


WGaKR  (1,3) 
1.0 


WORKR  (I,U) 
exit 
area 


REMARKS: 

All  velocity  energy  is  assumed  lost  after  exiting 
the  duct,  hence  a  coefficient  of  1.0. 


RSFEEENCE; 

ASHRAE    FUNDAMENTALS     198  1,     chapter    33 
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C.       EXECOTIHG    THE    PRCGBAH 

1 .  IBM    30  33    at     NFS 

Issue  the  following  commands  to  compile  and  execute 
the    program. 

FCRTKX    filename 

GLOBAL    TXTLIB    FOBinOdZ     M0D2EEH    NONIKSL 

LCAD  filename  (STAET 
"filename"  is  the  name  of  the  program  in  the  user's  files. 
NONIMSL  is  required  tecaus e  the  program  calls  the  NONIMSL 
library  with  FP.TCMS  when  defining  files  and  clearing  the  CRT 
screen.  If  the  file  has  been  compiled  on  the  user's  disk 
the  lengthy  compiling  may  be  omitted  and  issue  just  the  last 
two    lines. 

2 .  VAXzIi    at    NP S  ..... 

The  program  version  to  be  used  is  1.1.  This  version 
is  a  modified  version  of  the  program  listed  in  Appendix  A. 
The  modifications  include  elimination  of  all  calls  to 
FETCMS.  FET3MS  is  used  for  two  purposes  in  version  1.0. 
First  to  set  up  file  definitions  and  second  to  clear  the 
screen  at  appropriate  times  to  prevent  the  format  cf  the 
display  from  oeing  chopped  up.  The  file  definitions  in 
version  1.1  are  set  up  using  the  standard  OPEN  statement  of 
FORTRAN  77  used  on  the  VAX-1  1/780  at  NPS.  Ail  calls  to 
FRTCMS  to  clear  the  screen  were  deleted  and  are  not  needed 
on  the  VAX  because  it  scrolls  tne  display  from  the  bottom 
and  does  not  cut  off  any  continuous  screen  displays.  One 
other  change  was  made  in  the  file  definition  area,  all 
writes  to  the  terminal  where  made  to  unit  5  and  all  reads 
from  the  terminal  were  made  from  unit  6.  This  agrees  with 
the  convention  of  FORTRAN  77  as  implemented  or  tne  VAX.  The 
program  runs  like  any  otner  program  on  the  VAX,  first  the 
program    must  be      compiled   using   the   fortran      compiler,      then 
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linked  and  run.  The  program  is  stiil  interactive  on  the  VAX 
and  about  the  only  word  of  caution  required  is  to  rememter 
to  use  CAPS  ON  or  upper  case  input  lor  lo-jical  replies. 
Using  lower  case  leaves  the  user  in  a  loop  where  tht  program 
keeps  asking  ior  for  a  correct  reply.  The  duct  geometry 
fxie  information  is  on  a  file  called  duct,  iat  and  the 
performance   inforaaticn    is    on    a    fixe    called   output.dat. 

D.        BOILDING    A     DOCT     LATA    FILE 

The  following  pages  are  a  recorded  session  at  the 
terminal  where  the  author  entered  a  system  in  to  tne 
program.  The  system  modeled  is  made  up  from  drawings  for 
tne  proposed  Arleigh  Burke  class  guided  missile  destroyer. 
Tne  session  nas  been  annotated  to  point  out  features  of  the 
program. 


1 


GLOBAL    TXrilB    CMSLIS    F0ET.10D2    aOD22EH    I.13L3P    NONIMSl 
L0A2    THESIS     (    START 
EXSCUTICN    BEGINS... 
A    ONE-DIMENSIONAL    .lODEL    FOR    THE    SYSTEM    ?ERFOS;UNCE 
OF    A    aAfilNE     G^S    TURBINE    INiT ALLAIIGN" 


OPTIONS: 
;1EIH0D: 


BY    LCDR.     STEPHEN    M.     EZZELL 

VERSION     1.0         MARCH    30,     1934 

BUILD    A     DATA    FILE    REPRESENTING    THE    DUCT    SYSTEM 

EDIT    OR    CHANGE    THE    DUCT    DATA     FILE 

COMPOTE     SYSTEM    PERFORMANCE 

INTERACTIVE    INPUT    OF    DATA,     BRANCHING    TO    DESIRED 

OPTION    BY    ANSWERING    QUESTIONS 


***     WARNING,    TWO    NOLI    ENTRIES    ON    NUMERICAL    INPUT    WILL    *** 
*»*    KILL    THE     PROGRAM.     *** 


FIR 
DO 


ST    QUESTION: 
YOU    HAVE   A    DATA 


FILE    OF    DUCT    FITTINGS     (Y/N)? 
DO     YOU    HANT    LONG    OR     SHORT    INSTRUCTIONS     (L/S)  ? 


YOU    HAVE    SELECTED    ' 
ARE    YCU    WORKING    ON 

'you    are    WORKING    ON 
DOES    THE    MODULE    COO 
(X,N) 

r 

'DDES    THE    MODULE    COO 


HE    LONG    INSTRUCTIO::S. 

A    CRT    OR    TYPEWRITER    TERMINAL      (C/T) ? 

A    CRT    TERMINAL. 

LING    AIR    BRANCH    OF?    THE    MAIN    I-NLET? 


LING    AIR    JOIN    THE    MAIN    ENGINE     EXHAUST: 


'IS    THERE    A    COOLING     FAN    INSTALLED? 


YOU 
IS    : 

SYSTl 

FLOW 

INST 

1. 

^  • 

3. 

4. 


MUST    ENTER    A    LZ 
HERE    A    COOLING 


5. 
6. 


EH    IS    C 

S    FOE    T 
A  \^.^  Z  C  • 

ccaaiN 

OF  A  D 
MAIN  S 
cRANCH 
ENGINE 
AN  EDU 
IS  CON 
SECTIC 
PROGHA 
COOIIN 
OF  A  C 
CCMSIN 


LASS    THRE 
HE    ENGINE 
YDU    SILL 
ED    INLET 
TVER  GENT 
ECTION    OF 
SECTION 
EX  H  A  US  T 
CTOR     INST 
SIDE  RED    T 
N    OF    A    CO 
M. 

G  FAN  EXH 
CNVERGENT 
ED    SECTIO 


ITER  IN 
FAN  INS 

E,  COMB 
AND  MO 

BE  E 'I T 
TC  THE 
BYE. 

THE  DI 
OF  THE 
TC  MAIN 
AILED  A 
C  BE  A 
NVERGIN 

AOST    TO 

•^YE. 
N    OF    A 


THE    BRACK  EI 
TAILED? 


INED    INLETS    AND    EXHAUST 
COLE    COOLING.        A    COOLING    FAN    IS 
ERING    FITTINGS    FOR    SIX    BRANCHES. 
COMBINED    SECTION 

VERGSNT    WYE    TO    THE    ENGINE. 
DIVERGENT    HYS    TO    THE    COOLING    FAN. 

SECTION    OF    A    CONVERGENT     ^YS. 
T    THE    EXHAUST    PLANE    OF    THE    ENGINE 
CONTRACTION    fOLLJ*ED    3Y    THE     MAIN 
G    HYE    FOR    THE    PURPOSES    OF    THIS 

THE    BRANCH    SECTION 

CONVERGENT    WYE    TO    THE    ATMOSPHERE. 


ENTER    ZERO    TO    CONTINUE 
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02 

03 

04 
05 
06 
07 
08 

09 
10 

11 

12 

13 
<> 


/M6VW    LOOKS    LI  fie    rn/S 

&uT    IS     OmiTTEO     /V      THIS     LISTTAi     TO 

' SaK "P    ^f"^<-t 

■     FITTINGS     THIS    3  RANCH 
INTAKZ    SHAFT,    fiSCT    SECTION,    SIDE 

ORIFACES.     WITH  (OUT)     LOOVERS 
STRAIGHI    DUCT 


EI30K,     SMOOTH    RADIUS    ROUND 
EL30H;     90    DEG:     3-4,5    PCS:     ROUND 

ELEOH,     IITERED,     &CUND,     Hi«/0    VANES*    20    DIFFas 

EI3C«,     .IITERED,     HECTANGOLAR  « 

EI3CW,     SilOOTH    nACIUS,    RECTANGULAR  * 

EL30H,     S'lDOTH    RADIOS,    WITH  * 

SPLxTTEHS,    RECTANGULAR  • 

ELEOW,     ilITERED    TITH    VANES,     RECT  « 

ELBOW,    CONVERGING    CH    DIVERGING  * 

FLOW,    RECTANGULAR  * 


14  DIVERGING     WYE,     MAIN    SECTION 

15  CONVERGENT    WYi,    3RANCH    SECTION 
lb  CONVERGENT    WYE,    .IAIN    SECTION 
17  DIFF'JSEH,    CONIlAL 

ROUND    oECTICN 

13  diffoser,   plane,    in-line 

19  diff'jser  pyramidal,   in-line 

,,  ^     transitiona:    -- 


TO    SECT    or    RECT    Z-':^    RO 
1     CONTRACTION     ROUND 


L     (ROUND 
UNO) 


22    CONTSACTICN    RECTANGULAR 
3    OBSTRUCTION, SCREEN    IN    DUCT 


SI3CHS,     30     DZG,     Z-SHAPED,     RECT  ' 

l'L^':)'HS,     90     DEG,     IN    DIFFSriENT 

PLANES,     RECTANGULAR 
DIVERGING    MYE,     BRANCH    SECTION 
«««*««*«««««rj3£    xHo    DIGIT    NUMBER, 


YOU    ARE    HORKING    ON    FITTING    NUMBER    >>    312201 


24  LOnVSR  ENTRANCE 

25  FILTER 

26  MULTI-BAFFLE    SILENC 

27  GT    MODULE 

28  HASTE    HEAT    BOILER 

29  EXIT    ABRUPT 

30  FITTING    NOT    LISTED 
PRESS     jjiT2ci*««*«*«««»» 


25 
YOU    HAVE    SELECTED    TEE    INLET    FILTER    . 
••FIRST    QUESTION,     WHAT    IS     THE    TOTAL    FACE    AREA   OF    THE    FILTER? 


DO 
IN 


YOU    WANT    TO    USE    THE    DD963    TYPE    FILTER 
THE    CRY    CONDITION     (Y/>I)   ? 


NO    KORE    QUESTIONS. 

DO    YOU    WANT    TO    ENTER   THIS     FITTING     (Y/N)  7 


/nEfJu    o/tirrso 


5) 


>>    vrj    \R?.    WORKING    (;n    FITTING    N0M3ER    >>    312201 

YOU    HAVE    SELECTED    A    LOUVER  ED    ENTRANCE. 

••FIRST    QUESTION,     WHAT    IS    THE    DISTANCE    ACROSS    THE 

LOUVER    OPENINGS? 


25.  5 

WHAT    IS    THE   DISTANCE    BETWEEN    THE    LOUVSES,     USE   THE 
CLOSEST    DISTANCE. 

6.4021 
HOW    MANY    OPENINGS    ARE    THERE    BETWEEN    THE    LOUVERS? 

•5 

i? 

LAST    QUESTION,     WHAT    IS    THE    AREA    OF    THE    DUCT 
JUST    INSIDE   THE    LOUVZB    ENTHANCE? 

-5 

197.75 
DO     YOU    HANT   TO     ENTER    THIS     FITTING     (Y/N)  7 

^>>     YCU    ARE    WORKING    CN    FITTING    NUMBER    >>    3  12202 


25 


YOU    HAVE    SELECTED    THE    INLET    FILTER    . 
••FIRST    QUESTION,     « HAT    IS     THE    TOTAL 


ACE    AREA   DF    THE 
IN 


.TER? 


197.75 

DO    YOU    HANT   TO     USE    THE    DD963    TYPE    FILTER 
THE    DRY    CONDITION     (Y/N)? 

NO  MORE    QUESTIONS. 

DO  YOU    HANT    TO     ENTER    THIS     FITTING     (Y/N)? 
7 

>>  YOU    ARE    HORKING    CN    FITTING    NUMBER    >>    312203 


I 


i 
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02 
you    HAVE    SEISCTZD    STRAIGHT     DUCT.       IT    'i&I    BE    HOJND 
OR    HECTANG-JLAE. 

♦  **FIHST    QOESriON,     IS    IKE    DUCT    CIECULAR    OP.    EECTANGOLAK 
(C/F)     ? 

THE    DUCT    IS    RECTANGOLAH,    ENTEH    FIRST    CEOSS-S  ECU  0  NA  L 
DI.^ENSICN.        (FEET) 

18.33 
SECOND    CI.IENSION     (FEET) 

io.  5 

ENTEP.    TtE    LiNGTH    OF    THIS    DUCT    SECTION.      (FEET) 

17.75 

DO    YOU    WANT   TO    ENTER   THIS    FITTING     (Y/N) ? 

»     YCO    ARE    WORKING    ON    FITTING    NUM3ER    >>    3  12204 

00 
>>    YOO    ARE    WORKING    CN    FITTING    N0M3EE    >>    323101 

•7 

ia 

YOU     HAVE    SELECTED    TEE    MAIN    SECTION    OF    A    DIVERGING    WYE. 
THE    AIR    TO    THE     ENGINE    SHOULD    3E    FLOKI.NG    THRO'JGa  .  THIS    SECTION. 
JUST    ONE    CU'ESIICN.     WHAT    IS     THE    CH0S3-i  ECTION  AL    AREA    OF    THE 
«AIN    SECTION?       THIS    SHOULD     BE    THE    AREA    JUST    DOWNSTREAM    OF    THE 
JUNCTION    AND    DIRECTS    FLOW     TO    THE    oNGINE.       IT    ALSO    SHOULD    BE 
THE    FIRST    FITTING    OF    THE    BRANCH. 
■? 

81.375 

>>    YCU    ABE    WORKING    CN    FITTING    NUMBER    >>    323102 
■> 

26 
YOU    HAVE    SELECTED     A    MOLTI- BAFFLE    TYPE    SILENCER. 
EACH    BAFFLE    HAS    A    STREAMLINED    SHAPE.       II    15    THE    TYPE 
USED    IN    THE    INLETS    OF    THE    DD963. 
**FIRSI    QUESTION,     WHAT    IS    THE    GAP    BETWEEN    THE    BAFFLES? 

6.333 

WHAT    IS    THE   THICKNESS   OF    THE    BAFFLES? 

•> 

0.666 
WHAT    IS    THE   LENGTH    CF   THE    BAFFLES? 

•> 

9.3  3 
WHAT  IS  THE  DIMENSION  OF  THE  BAFFLES  PARALLEL  TO  THE  GAP? 

7.75 
WHAT  IS  THE  DIMENSION  Or  THE  MAIN  DUCT  ACROSS  THE  GAPS? 

•> 

io.  5 

LAST    wUESIION,     HOW     HANY    GAPS    ARE    THERE? 

ii 

DO    YOU    WANT   TO    ENTER   THIS    FITTING     (Y/N)  ? 

y 

>>    YCU    ARE    WORKING    CN    FITTING    NUMBER    >>    323103 

■} 

22 

YOU    HAVE    SELECTED    A    RECTANGULAR    CONTRACTION. 

**FIESI    COESriON,     WHAT    IS    THE    LENGTH    OF    THE    CONTRACTION? 

•5 

8.5 

WHAT    IS    THE   LEAST    UPSTREAM    CROSS-SECTION    DIMENSION? 
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7.75 
WHAT    IS    THE   GREATER    UPSTREAM    CROSS -SECTION    DI.1ENSI0N? 

•5 

10.  5 

what  is  the  least   dcknsthea.i  c50ss-s  ectio  n  dimension? 

Last  question,    what  is  the  greater  dohnstrea.i 
cross-section  dimension? 

7.75 

00  YOU  WANT  TO  ENTER  THIS  FITTING  (Y/N)  ? 

>>  TOO  ARE  HORKING  CN  FITTING  NOMSER  >>  323104 

06 
i"OJ  HAVE  SELECTED  A  !1ITSHED,  RECTANGULAR  CROSS- S  ECTIO  N ,  ELBOW. 
*«FIRST  QUESTION,  WHAT  IS  THE  HEISHT  OF  THE  EL30H? 
(THE  DIMINSION  PARALLEL  TO  THE  TURN  AXIS) 

6.67 

WHAT    IS    THE    WIDTH    OF    THE    EL3CW    C EOSS-3 SCTIOM? 
(THE    CIMENSICN    IN    THE    PLANE    OF    THE    TURN) 

7.75 

LAST    gUESTION,     WHAT    IS    THE    ANGLE    OF    THE    ELBOW    TURN 
(0    -    50    DEGRESS)? 

90 

DO     YOU    WANT    TO     ENTER    THIS    FITTING     (Y/N)  ? 
7 

>>     YCa    ARE    WORKING    CN    FITTING    NOMBER    >>    323105 

■5 

23 

YOU    HAVE    SELECTED    A    SCREEN    OBSTRUCTION    IN    THE    DOCT. 
♦*FIHSr    QUESTION,     WHAT    IS    THE    DUCT    C20SS-SECTID  .^  AL    AREA? 

50 

LAST  QUESTION,  WHAT  IS  THE  FREE  FLOW  AREA  OF  THE  SCREEN? 

27.  15 

DO     YCa    iiANT    ro     ENTER    THIS     FITTING     (Y/N)  ? 

y 

>>     YOU    ARE    WORKING    ON    FITTING    NDM3EH    >>    323106 

-> 

QQ 
»    YCU  ARE  WORKING  CN  FITTING  NUMBER  >>  324001 

13 

YOU    HAVE    SELECTED    THE    BRANCH    SECTION    OF    A    DIVERGENT    WYE. 
THE    fiODULE    COOLING     AIR    SHOULD    BE    BRANCHING    OFF    THE    MAIN 
INLET    AND    .-LOWING    THROUGH    THIS    SECTION.       THIS    SHOULD    BE    THE 
"15  ST    FITTING    OF    THIS    BRANCH. 

**FIRST    QUESTION,     WHAT    IS    THE    ANGLE    BETWEEN    THE     SAIN    FLOW 
AXIS    AND    THE    BRANCH    FLOW    AXIS     (DEGREES)     ? 

90 
WHAT    IS    THE   CROSS-SECTIONAL    AREA    OF    THE    COMBINED    FLOW 
SECTICN?       THIS     IS     WHERE    BOTH    ENGINE    AIE    AND    COOLING    AIR    FLOW 

JUST    UPSTREAM    OF    THE    BRANCH. 

■> 

197.7  5 

_^LAST    QUESTION,     WHAT    IS    THE    CROSS-SECTIONAL    AREA    OF    THE    BRANCH? 

5.761 

DO  YOO  WANT  TO  ENTER  THIS  FITTING  (Y/N)? 

y 
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>>  YCU  SEE  WORKING  CN  FITTING  ;JUK3ER  >>  324002 


02 


IT    :UY    3E    ROUND 
OLJR    OR    RECTANGULAR 


Y3a    HAVE    SELECTED     STRAIGHT     DUCT. 
OP.     RECTANG'JLAR. 
♦  ♦•FIRST    QUESTION,     IS    THE    DUCT    CI 

THE    COCT    IS    ZIRCULAR,    ENTER    THE    DIAMETER     (FEET) 

■5 

2.708 

ENTER    THE    LENGTH    OF    THIS    DUCT    SECTION.      (FEET) 

-> 

7.5 
DO  YCU  BANT  TO  ENTER  THIS  FITTING  (Y/S) ? 


(C/R) 


>> 

-> 

00 

>> 


YCU    ARE    WORKING    CN    FITTING    N0.13EE    >>    324003 
YOU    ARE    WORKING    CN    FITTING    N0M3ER    >>    335101 


02 
YOU     HAVE    SELECTED    STRAIGHT     DUCT.       II 


.lAY    BE    ROUND    OR    RECTANGULAR 
(C/R)     ? 


♦♦♦FIRST    QUESTION,     IS    THE    DUCT    CIRCULAR    OR    RECTANGU-LAR 

THE    DUCT    IS    RECTANGULAR,    ENTER    FIRST    CEOSS-SECTIONAL    DIMENSION 

6.64 
SECOND-   DIMENSION     (FEET)  •  ' 


(FEET) 


(FEET) 


4.53 
ENTER    THE    LENGTH    OF    THIS    DUCT    SECTION. 

i 

DO    YCU    WANT   TO     ENTE£    THIS     FITTING     (Y/N)  ? 

y 

>>  YOU  ARE  WORKING  CN  FITTING  NUMBER  >>  335102 

-5 

16 

YOU    HAVE    SELECTED    TEE    MAIN    SECTION    OF    A    CONVERGING 
WYE,        THE    ENGINE    EXHAUST    ALONE    SHOULD    3E    FLOWING    THROUGH 
THIS    SECTION.        IT    SHOULD    BE    THE    LAST    FITTING    OF 
♦♦JUST    ONE    QUESTION,    WHAT    IS    THE    C ROSS -SE CTIONAL 
MAIN    ERANCH? 


HE    3HANCH. 
AREA    CF    THE 


20.  19 
DO 

^> 

00 
>> 


YCU    WANT    TO     ENTER    THIS     FITTING     (Y/N)? 

YCU    ARE    WORKING    CN    FITTING    NUMBER    >>    335103 

YCU    ARE    W0RKI2IG    CN    FITTING    NUMBER    >>    345001 


27 

YOU    HAVE    SELECTED    TEE    GAS     TURBINE    MODULE    AS    A    PART    OF 
THE    COOLING    FLOW    PASSAGE.        NO    QUESTI3.JS,     JUST    NEEDED 
TO    KNOW    WHERE     YOU     WANTED    THE    MODULE. 
DO     YOU    WANT    TO     ENTER    THIS     FITTING     (Y/N)? 

y 

>>    YCU    ARE    WORKING    CN    FITTING    NUMBER    >>    345002 

•5 

15 

YOU    HAVE    SELECTED    THE    BRANCH    SECTION    OF    A    CONVERGENT 
WYE.       TEE    HOT     MODULE    COOLING    AIR    SHOULD    5E    JOINING    THE    MAIN 
ENGINE    EXHAUST     IN    THIS    «"YE.       THIS    FITTING    SHOULD    BE    THE    LAST 
FITTING    IN    THE     ERANCH. 

♦♦FIRST    QUESTION,     WHAT    IS     TEE    ANGLE    BETWEEN    THE     MAIN    FLOW 
AXIS    AND    THE     BRANCH    AXIS     (DEGREES)  ? 
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WHAT    IS    THE   C ROSS -S r CTICNA L    AHEA    OF    THE    COMBINED    FLOW 
SECTION?        :HIS     13     rtHESE    ENGINE    EXHAUSI     AND    :iOD'JLE    CCCLING    AIE 
?LCH    JUST    DCWNSTHEAM    OF    IHEEHANCH. 

30.  46 
EAST    QJESTION,     WHAT    IS    THE    CROSS-SECTIONAL    AREA    OF    THE 
SHANCH? 

iO.  27 
DO     YOO    WANT    TO     ENTER    THIS     FITTING     (Y/N)  ? 

y 

>>  YCU  ARE  WORKING  CN  FITTING  N0M3Ea  >>  JU5003 

-> 

00 
>>  YOO  ARE  WORKING  CN  FITTING  NUMBER  >>  356201 

21 

YO'J     HAVE    SELECTED    A    CIRCOLAH    CONTRACTION. 

**rIRST    QUESTION,     3HAT    IS     THE    LENGTH    OF    THE    CONTRACTION? 


WHAT    IS    THE    aPSTSEAH    DIAMETER? 

6.2374 
WHAT    IS    THE    DOBNSTHEAM    DIAMETER? 

■> 

5.4667 
DO     YC-U    WANT    TO    ENTER    THIS     FITTING     (Y/N)  ? 

V 

'>>  YCU  ARE  WORKING  CN  FITTING  NUMBER  >>  356202 


02 


YOa    HA7E    SELECTED    STEAI3HT     DUCT. 


IT    dkl    3E    HG3ND    CR    RECTANGULAR, 


♦♦♦FIRST    QUESTION,     IS    THE    DUCT    CIRCULAa    OR    RECTANGULAR       (C/R)     ? 
c 

THE    COCT    IS   CIRCULAR,    ENTER    THE    DIAMETER     (FEET) 

5.  4667 

ENTER    THE    LENGTH    OF    THIS    DOCI    SECTION.      (FEET) 

7.  1  1 

DO  YOU  WANT  TO  ENTER  THIS  FITTING  (Y/N) ? 

y 

>>     YCO    ARE    WORKING    CN    FITTING    NUMBER    >>    356203 

•> 

05 
YOU    HAVE    SELECTED     A    MITERED    ROUND    ELBOW. 
♦♦FIRST    QUESTION,     WHAT    IS     THE    CROSS-SECTIONAL    DIAMETER? 

5.4667 

WHAT    IS    THE   ANGLE    OF    THE    EL30H    TORN? 


90 

y 


LAST     QUESTION,     ARE    CETIMU3     NUMBER    OF    CONCENTRIC     VANES 
INSTALLED    TO    REDUCE    RESISTANCE    AND    T0H3ULANCE    (Y/N)? 


DO     YOU    WANT    TO     ENTER    THIS     FITTING     (Y/N)? 

>>    YOU    ARE    TJDRKIiNG    CN    FITTING    N0M3ER    >>    356204 

■) 

02 
YOO    HAVE    SELECTED    STRAIGHT     DUCT.       IT    MAY    BE    ROUND    OR    RECTANGULAR 


♦♦♦FIRST    QUESTION,     IS    THE    DUCT    CIRCULAR    OR    RECTANGULAR        (C/R)     ? 
THE    DDCT    IS    CIRCOLAR,    ENTER    THE    DIAMETER     (FEET) 
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i 


5-5667 
ENIIB    IHE    LENGTH    OF    THIS    DUCT    SECTION.      (FEET) 

6.23 

DO     YOO    HA.NT    TO    ENTER    THIS     FITTING     (Y/N)  ? 
7 
>>     YCU    AES    WORKING    CN    FITTING    N0I13EE    >>    356205 

05 

YOD    HAVE    SELECTED    A    fllTZRSD    RCDND    EL305J. 

**FIEST    QUESTION,     MKAT    IS     THE    CEOoi-SSCTIONAL    DIAflETEF? 

5.1667 

WHAT    IS    THE   ANGLE    OF    THE    ELBOH    TURN? 

•J 

90 
LAST    QUESTION-     ARE    CPTIilUM     ND3BEE    OF    CONCENTRIC     VANES 
INSTALLED    TO    REDUCE    RESISTANCE    AND    TUSaULANCE    (Y/N) ? 

y 

DD  YOO  HANT  TO  ENTER  THIS  FITTING  (Y/N)? 

>>  YOU  ARE  ROHKING  ON  FITTING  NUMBER  >>  356206 

-> 

02 
YOU     HAVE    SELECTED    SIHAIGHT     DUCT.       IT    iAY    3E    ROUND    OE    RECTANGULAR. 

***FIRST    QUESTION,     IS    THE    DUCT    CIECOLAH    OR    RECTANGULAR        (C/R)     ? 
c 
THE    COCT    IS   CIRCULAR,    ENTER    THE    DIAMETER     (FEET) 

5.U667 

ENTER    THE    LENGTH    OF    THIS    DUCT    SECTION.      (FEET) 

3.033 
DO     YOU    HANT   TO     ENTER    THIS     FITTING     (Y/N)? 

y 

>>     YOU    ABE    WORKING    CN    FITTING    NUMBER    >>    356207 

•7 

17 

YOU    HAVE    SEXECTSD     A    CONICAL    DIFFUSER    WITH    CIRCULAR 

INLET    AND    CUTLET    SECTIONS. 

**FIESI    QUESTION,     WHAT    IS* THE    LENGTH    OF    THE    DIFUSER? 

'2.961 

WHAT    13    THE   INLET     DIAMETER? 

•5 

5.4667 

WHAT    IS    THE   OUTLET    DIAMETER? 

•? 

7.1667 
IS    THERE    A    NON-UNIFCEa    VELOCITY    DISTRIBUTION    AT    THE    INLET     (Y/N)? 

SINCE    TKEEE    IS     A    WILE    DIVERGING    ANGLE,     THE    PROPER 
INSTALLATION    OF    DIVIDING    WALLS    OR    BAFrLES    CAN    REDUCE 
THE     RESISTANCE    OF    THIS    FITTING.       DO    YOU    WANT    TO     INSTALL 
DIVIDING    WALLS    OR    BAFFLES      (Y/N)? 
n 
NO    MORE    QUESTIONS    THIS    FITTING. 
DO    YCU    KANT   TO    ENTER   THIS     FITTING    (Y/N)  ? 

y 

»     YCU    ARE    WORKING    CN    FITTING    NUMBER    >>    356208 

02 
YOU    HAVE    SELECTED     STRAIGHT     DUCT.       IT    IAY    BE     ROUND    OE    RECTANGOLAR, 

***?IfiST    QUESTION,     IS    THE    DUCT    CIRCULAR    Crt    RECTANGULAR        (C/R)     ? 

c 
THE    DUCT    IS    CIRCULAR,     ENTER    THE    DIAMETER     (FEET) 
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7.1667 

ENTER    THE    LENGTH    OF    THIS    DUCT    SECTION.      (FEET) 

■> 

1.7 

00     YCD    '«ANT    TO     ENTES    THIS     FITTING     (Y/N)  ? 
7 
>>     YOU    ARE    BOHKING    CN    FITTING    NDMBEH    >>    356209 

21 

YOU    HAVE    SELECTED    A    CIHCTLAH    CONTHACTION. 

**FIFST    QUESTION,     WHAT    IS     THE    LENGTH    OF    THE    CONTRACTION? 
*? 

0.  1 

hHAI    13    THE    UPSTBEAH    DIAMETER? 

■5 

7.1667 

WHAT    IS    THE   DOWNSTREAM    DIAMETER? 

■J 

U.53J 

DO     YOU    WANT    TO     ENTER    THIS     FITTING     (Y/N)  ? 
7 
>>     YCU    ARE    B3RSLNG    CN    FITTING    .DUMBER    >>     356210 

29 

YOU    HAVE    SELECTED     AN    ABRUPT    EXIT    TO    THE    ATMOSPHERE. 
**JnST    ONE    QUESTION,    WHAT    IS    THE    AREA    OF    THE    EXIT    PLANE? 

-> 

16.  13  84 
DO     YCU    MANT   10     ENTER   THIS     FITTING    (Y/N)? 

7 
>>     YCU    ARE    WORKING    CN    FITTING    NUMBER    >>    356211 

•> 

00 
I.HAT    SEEIAI    NUMBER    WCULD    YCU    LIKE    TO    GIVE    THIS    DOCT    DATA    FILE? 
YOU    MAY    USE    UP     TO    A    SIX    DIGIT    INTEGER    NUMBER. 

-? 

510001 

DO     YCU    WANT    TO    COMPUTE    WITH    TEE    FILE    OR    QUIT     (C/Q)  ? 

q 
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E.       ZDITIHG    THE    DOCT    DATA    FILE 

This  section  demonstrates  the  editinj  capability  of  the 
pragram.  The  editor  will  te  demonstrated  by  changing  a 
fitting.  The  fitting  chosen  is  an  elbow  m  the  exhaust 
dact.         It    has    cascaded    turning      vanes   installed.  By    using 

the  editor  the  turning  vanes  will  be  removed  and  an  ordinary 
mitered  round  elbow  will  be  substituted.  Any  fitting  that 
also    serves   the    purpose   could    be   substituted    as   well. 

The    program      can   also  add    or      delete   a    fitting.  it    is 

somewhat  limited  in  the  addition  ability.  The  program  can 
not  add  a  fitting  to  the  first  of  a  branch  in  one  step.  To 
add  a  fitting  to  the  duct  data  file  select  the  index  of  the 
fitting  in  the  file  that  the  fitting  is  to  be  placed  after. 
The  program  will  ask  what  fitting  is  to  be  added  and  then 
the  user  can  enter  the  fitting  directly  or  from  the  menu. 
To  add  a  fitting  at  the  first  of  a  branch,  first  add  the 
same  first  fitting  presently  in  the  brancn  after  itself, 
then  change  the  same  index  fitting  as  the  first  step  to  the 
desired    new   first   fitting. 

It  should  be  emphasized  that  the  editor  does  not  change 
a  system  class.  If  the  user  wants  a  different  duct  arrange- 
ment   a    new    file    will   have   to   be   entered. 
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GLOBAL    rXTLI3    C.1SLIB    E0RT.M0D2    .10D2SZH    i:iSLS?    S0NI.1SL 
LOAD    THZSIS     (    START 
EXZCUTICN    3EGINS... 
A    ONE-uIM£N'SIONAL    MODEL    FOR    THE    SYSTE;i    PERFORMANCE 
OF    A    MARINE    G  hS    I'JEBINE    INSIALLAIION 

BY    LCDR.     STEPHEN    M.     EZZELL 


OPTIONS: 
METHOD: 


VERSION     1.0         MARCH    30,     1984 

EUILD    A    DATA    FILE    REPRESENTING    THE    DOCT    S 

EDIT    OR    CHANGE    THE    uUCI    DATA    FILE 

COMPUTE     SYSTEM    PERFORMANCE 

INTERACTIVE    INPUT    OF    DATA-     BRANCHING    TO    D 

OPTION    3Y    ANSWERING    QUESTIONS 


YSTEM 
ESIEED 


*««     WARNING,    TWO    NULL    ENTRIES    ON    NUMERICAL    INPUT    Wi: 
♦**    KILL    THE     PROGRAM.     **• 


*** 


FIRST    siUESTIOH: 

DO     YOU    HAVE    A     DATA    FILE    OF    DUC' 


FITTINGS     (Y/N)  ? 


03    YOU    KANT    TO     EDIT    THE    FILE    OR    USE    IT    FOR    COMPU  T  ATION  (E/C)  ? 


DO    TOO    :?ANT    TO    CHANGE,     DEL 
YOUR    OLD    FILE     WILL     EI    PERM 
COPY    THE    OLD    FILE    UNDER    A 
SAVE    IT?       IF    NOT,     ENTER    TH 
PROGRAM. 


ETE,    OR    ADO     (C/D/A)? 
ANENTLY    CHANGED,     DID    YOU 
NEW    NAME    IF    YOU    WANTED     TO 
0    NOLL    STRINGS    TO    KILL    THE 


WHAT    LINE    DO    YOU    WANT    TO    EDIT? 


19 
30 

01 

02 
03 
04 
05 
06 
07 
08 

09 
10 

11 
12 

13 

<> 


YOU    NEED    A     MENU     (Y/N)  ? 


C    MCE 

NTAKE 
OR  IF 
TEAIG 
L30  ti, 
L30W; 
LEOH, 
L20K, 
I3CW, 
130  W, 

Sr  LI 

LaoH, 

13C>i, 
7L0 
LBCtaS 
L30WS 
?LA 
IVERG 
*«  «  *« 

OU    AR 


E  FIT 
SHAF 

ACES- 

HT  DO 
SMDO 
90  D 
MIT  E 
MITE 
SMOO 
SM3  0 

TIERS 
MITE 
CCNV 

H,    RE 

,    90 

;  90 

NES, 
ING    « 
«*«*  « 

E    W3R 


TINGS  THIS  3 
CI  SECT 
(OUT)     L 


T-    RE 
WITH 


C 

TH    HA 
EG:     3 
RED, 
BED, 
TH    RA 
TH    RA 
-    REC 
RED     W 
ERGIN 
CTANG 
D2G, 
DEG  , 
RECTA 
YE,     3 
«*OSE 
X  IN  G 


DIOS  RO 
.4,5  PC 
ECUND- 
RECTANG 
EIUS,  R 
CIUS,  ^ 
TANGULA 
ITH  VAN 
G  OR  DI 
ULAR 
Z-S  HAPE 
IN  DIFF 
NGULAR 
RANCH  5 
TWO  DI 
CN  FITT 


RANCH  * 
ION,  SIDE  « 
COVERS      • 

« 

OND  * 
S:  ROUND  * 
w£B/0  VANES* 
ULAR        * 

ECTANGULAR  * 
ITH  * 
H  ♦ 

ES,  RECT    « 
VERGING     « 
* 

D.  RECT  * 
E  ?.  E  N  T       ♦ 


14  DI 

15  CO 

16  CO 

17  DI 
13  DI 

19  DI 

20  DI 

21  CO 

22  CO 
^'■^  0  3 


LO 
?I 
MU 


ECTION      * 
GIT  NUMBER,  ? 
ING  NUMBER  >> 


J 
24 
25 
26 
27 

23  ;u 

29  EX 

30  FI 
RESS 

3562 


VSR 
NVE 
HVE 
FFU 
FFU 
FFU 
FFU 
RE 
NTR 
NTR 
ST" 
UVE 
LTE 
LTI 

:n 

STE 

IT 

TTI 

ENT 

05 


GING    WYE-     MAIN    SECTION 
RGENT    WYE,    3RANCH    SECTION 
RGENT    WYE-    MAIN    SECTION 
SEE,    CONICAL     ROUND    SECTION 
3SR,     PLANE-     IN-LINE 
SEH    PYRAMIDAL-    IN-LINE 
SER,     TRANSITIONAL     (ROUND    TO 
CT    OR    RECT    TO    SOUND) 
ACTTCN    RCUND 
ACTION     RECTANGULAR 
UCTION- SCREEN    IN    DUCT 
R     ENTRANCE 


-BAFFLE 
DULE 

HEAT    BCI 
ABRUPT 
NG    NCT    LIS 


SILENCER 

ER 


««««  «  *«  ««** 


05 
YO 

m* 
■J 

5.4 
WH 


U     HAVE    SELECTED     A    MITERE 
FIRST    QUESTION,     WHAT    IS 


D    ROUND    EL30W. 

THE    CROSS-SECTIONAL    DIAMETER? 


667 

AT    IS    THE   ANGLE    OF    THE    EL30a    TURN? 


90 

LA 
IN 
n 
DO 


ST    QUESTION,     ARE    OPTIMUM 
STALLED    TO    REDUCE    RESIST 


NUMBER    OF    CONCENTRIC     VANES 
ANCE    AND    TUEflULANCS     (Y/N) ? 


YCU     WANT    TO     ENTER    THIS     FITTING     (Y/N)  ? 
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J 


^Mil    TO    CHANGE    ANOTHZE    FITTIIIG     (Y/M)  ? 

WANT    TO    MAKE    ANY    OTHER    CHANGES     (Y/N)? 
n 
WHAT    SEHIAl   NUMBEH    WOOLD    YOU    LIKE    TO    alVE    THIS    DOCT    DATA    FILE? 
YOU     MAY    USE   UP    TO    A    SIX    DIGIT    INTEGER    N0a3ER. 

•5 

510002 
DO    YOU    WANT   TO     COMPUTE    WITH    THE    FILE    OR    i^UIT     (C/Q)  ? 

g 
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F.       COflPOTIHG    SYSTEM    PEEFORHANCE 

This  section  also  contains  a  recorded  terminal  session. 
The  computing  section  of  the  program  was  exercised  here. 
The  session  has  been  annotated  to  point  out  program 
features. 


« 


I 
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GL03AL    TXTLIB    CMSLIB    FOaT:iOD2    aOD2EZH    I.1SLSP    .iONI  MSI 
lOkD    THESIS     (    STABT 
EXECUTICIJ    BEGINS... 
A    C;iE-DI.1E.NS:0NAL    .^CDEL    FOR    THE    SYSTS:i    PERFOHilANCE 
OF    A    .lAPISE    GAS    lUHBINE    INSTALLATION 

BY     LCDR.     STEPHEN    ;i .     EZZELL 

VERSION     1.C         ^.A  RCH    30,     1984 
OPTICNS:     EJILD    A    DATA    FILE    .-lEPRiSSNTING    THE    OUCT    SYSTEM 

EDIT    OR    CHANGE    THE    DOCT    DATA    FILE 

COMPUTE    SYSTEM    PERFORMANCE 
METHOD:       INTERACTIVE    INPOT    OF    DATA,     BRAilCHING    TO    DESIRED 

OPTION    BY    ANSWERING    QUESTIONS 

***    WARNING,    THO    NOLI    ENTRIES    ON    NQMERICAL    INPOT    HILL    ** * 
*♦*    KILL    THE     PROGRAM.     •** 

FIRST   QDESTIDN: 

DO    YC3    HAVE    A    DATA    FILE    OF    DUCT    FITTINGS     (Y/N)  ? 
7 

DO     YOU    WANT   TO    EDIT    THE    FILE    03    USE    IT     FOR    COMPU TAT  10 N  (E/C)  ? 

THIS    PORTION    OF    THE    PROGRA d    INPUTS    THE    ENVIROMENTAL    CONDITIONS. 
WHAT    IS    THE    AMBIENT    TEdPERATUHE     (DEGREES    F)  ? 

75 
WHAT    IS    THE    AMBIEN?    PRESSURE     (PSIA)? 

14.6 
WHAT    IS    THE   RELATIVE    HUMIDITY     (GRAINS    PER    POUND     AIR)? 

70 

YOU     HAVE    SELECTED    A    SYSTEM    WITH    A    COOLING    FAN.        THE 
DEFAULT    SPECFICATIO NS    ARE    FOR    THE    FAN    INSTALLED    ON 
THE    DD963     CLASS    SHIP. 

DO     YOO    WANT   TO     USE    THE    DEFAULT    SPSCFIC ATIONS     (Y/N)? 

INPUT    TEE    POWER    SETTING    YOO    DESIRE. 
**WHAT    IS    THE     HORSEECliER? 

■> 

20000 
**WHAT    IS    THE     POWER    TURBINE    SPEED     (RPM)  ? 

360  0 

THE    RESULTS    OF    THIS    RON    HAVE    BEEN    ENTE2ED 

INTO     {    FILE    ZkLLEd    "OUTPUT    DATA". 

DO     YCU    WANT    TO    COMPUTE    WITH    DIFFERENT    0PSRATIN3    CONDITIONS     (Y/N)  ? 

^INPUT    THE    POWER    SETTING    YOO    DESIRE. 

**WHAT    IS    THE     HORSEPOWER? 

-> 

ioooo 

*«WHAT    IS    THE     POWER    TORBINE    SPEED     (RPM)? 

2200 

THE    RESULTS  OF    THIS    RON    HAVE    BEEN    ENTERED 

INTO     I    FILE  CALLED     "OUTPUT     DATA". 

DO    YOU    WANT  TO    COMPOTE    WITH    DIFFERENT    OPERATING    CONDITIONS     (Y/N) ? 

D 

DD    YOU    WANT   TO     EDIT    THE    DUCT    DATA    FILE    OR    QUIT     (E/Q)? 
9 
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G.        EXAflllING    THE   OOTPOT 

Included   in    tnis    section   are      copies    of    two    files.  The 

first      is   a      copy   of      the   file      the    author      baixt    using  the 

Arleigh    Eurke    class    example.       The    otner    one    xs   a    copy   of  the 

results    from  the   runs   made    in      the   compute    section    using  the 
sample   file   at    two    operating    points. 
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THIS    PEEF0RMANC2    HON    WAS 
INLET    CONDITIONS: 


DEVELOPED    FH0.1    DOCZ 


HCBSEECXEF,: 
NPT     (REM)      : 


AMBIENT    TEilP     (DEG    ?) 
AMBIENT    PRESS     (PSIA) 
HUMIDITY     (GRAINS) 
20000.0 
3600-0 


ENGINE    DUCT    LOSSES     (IN-h'-G-):     INLET 


1-98 


DATA    FILE, 

510001 

75,00 
14.  60 
70.  00 

EXHAUST 

13.  95 

ENGINE    PEEFDEMANCE    PARAMETERS: 
WC=  24. 32       LEM/SSC 

H2=  122. 71 

«8=  12  3-78 
P8=  15.  18 

T8=  1405.49 
SFC=  0.406 

154=  1327.1 

NG=  3827.0 


LHK/SSC 
lEM/SEC 
PSIA 

n  E  J       R 

LE:l(FaEL)/HP*HR 

CEG    H 


RPM 
MODULE    COOLING    TEMP    001= 


250.3       DEG    F 


FITTING 

FITTING 

PRESSURE    LOSS 

VELOCITY    PRESSURE 

ID 

TYPE 

INCH    S.G. 

INCH    71.  Z. 

312  20  1- 

.  24 

0.  42 

0.0  2 

LOUVER    E^lTRANCE 

312202 

25 

0.72 

0.  J2 

FILTER 

312203 

2 

0.00 

0.0  2 

STRAIGHT    DUCT 

323101 

14 

0.04 

0.09 

MAIN    SECT,DI7    ;*YE 

323102 

26 

0.  09 

0.09 

SILENCER     SECTION 

323103 

22 

0.01 

0.23 

CONTRACTION, RECT 

3231 04 

6 

0.  18 

0.23 

EL3CW,MITERED,3ECT 
SCREEN    IN    DUC* 

323105 

23 

0.52 

0.2  5 

324001 

13 

0.  67 

0.72 

BRANCa.DIV    WYE 
STRAIGHT     DUCT 

324002 

2 

0.02 

0.73 

335101 

2 

0.00 

1.71 

STRAIGHT    DUCT 

335102 

16 

1.30 

2.24 

MAIN    3ECT,C0NV    HYE 
GAS    TURBINE    MODULE 

3450  0  1 

27 

1.54 

0.0 

345002 

15 

-3.24 

2.24 

EEANCH.CONV    ^Y5 
CCNT3ACTICN, ROUND 
STRAIGHT     DUCT 

356201 

21 

0.04 

3.31 

356202 

2 

0.05 

3.79 

356203 

5 

0.74 

3.73 

EL3CW,MITERED , SOUND 

356204 

2 

0.04 

3.54 

STRAIGHT     DUCT 

356205 

5 

0.74 

3.30 

SL3CW .MITERED , ROUND 
STRAIGHT     DUCT 

35o206 

2 

0.02 

3.3  1 

35o207 

17 

0.  45 

2.50 

DIFF, CONICAL 
STRAIGHT     CUCT 

356  20  8 

2 

0.00 

1.29 

35o209 

21 

2.  46 

3.0  8 

CONTRACTION, ROUND 

356210 

29 

8.  10 

3.  10 

EXIT, ABRUPT 

LOSS 

5  RANCH 

1- 

-2. 

1.  14 

LOSS 

ERANCH 

2- 

•3 

0.83 

LOSS 

E  RANCH 

3- 

-5 

:                    1-31 

LOSS 

S  RANCH 

5- 

•6 

:                   12.65 

LCSS 

E  RANCH 

2- 

•4 

:                     0-69 

LOSS 

BRANCH 

4- 

-5 

:                  -1.70 

i 
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THIS    ?E?.rCRMANC2    HUN    HAS     DEVELOPED    rflOU    DUC: 

i;ilET    CONDITIONS:       AMEIEHI    TESP    (DEG    ?) 
AM3IZNT__PRESS_  (PSIA) 


HORSEPOWER: 
NPT     (REM)     ; 


HUMIDITY     (GRAINS) 
10000,3 
2200-0 


ENGINE    DOCT    LOSSES     (IN.rt,G.):    INLET 

ENGINE    PEErOEilANCE    PARAilETESS: 

WC=  25.42  LEM/SEC 

W2=  9  9.45  IcM/SEC 

K8=  99.88  ISM/SEC 

E8=  14.97  ESIA 

18=  1231.00  DEG    R 

SrC=  0.508  LB«(rUEL)/HP*HE 

T54=  1  549.  0  DEG    H 

NG=  8332.3  REM 

MODULE   COOLING  TEMP    OUT=  250.3 


1  .40 


DATA    FILE, 

510001 

75.00 
14,60 
70.00 

EXHAUST 

9.  10 

DEG    F 


FITTING 

FITTING 

PEESSOSE    LOSS 

7EL0CITY    PP.ESSORE 

ID 

TYPE 

INCH    H.G. 

l;JCH    W-G. 

31220  1 

24 

0.30 

0.32 

lOUVE 

312202 

25 

0.55 

0.3^ 
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0.  00 

0.:^ 
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14 
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0.06 
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0.15 

ELBCW 

323105 

23 

0.  34 
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